Помогите с задачей на pascal abc - на теме отсутвовал...

Задача:

НА ЗАДАЧУ ДАНО ТРЕХЗНАЧНОЕ ЧИСЛО, РАВЕН ЛИ КВАДРАТ ЭТОГО ЧИСЛА СУММЕ КУБОВ ЕГО ЦИФР. Помогите, пожалуйста

1

Ответы и объяснения

2013-01-29T15:47:41+00:00

uses crt;
var a,s:integer;
begin
clrscr;
repeat
write('Введите трехзначное число a=');
readln(a);
until (a>=100)and(a<=999);
s:=0;
while a>0 do
 begin
  s:=s+sqr(a mod 10)*(a mod 10);
  a:=a div 10;
 end;
if a*a=s*s*s then write('Квадрат числа=сумме кубов его цифр')
else write('Квадрат числа<>сумме кубов его цифр');
readln
end.

 

самое легкое что я придумал