Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.
Решение ABC Pascal:
Program two;
Var x,s,kv,i:integer;
begin
write('Введите трёхзначное число: ');
read(x);
kv:=sqr(x);
s:=0;
for i:=1 to 3 do
begin
s:=s+x mod 10;
x:=x div 10;
end;
s:=s*s*s;
if (kv=s) then writeln('Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа ')
else writeln('Квадрат заданного трехзначного числа не равен кубу суммы цифр этого числа ');
writeln('Квадрат числа:',kv, '; Куб суммы цифр числа:',s);
End.
Замечания и предложения в пишите комментариях