Определить, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.

Решение 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.

Замечания и предложения в пишите комментариях