Помогите с задачей ** pascal abc - ** теме отсутвовал... Задача: ** ЗАДАЧУ ДАНО...

Question

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

Задача:

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

Answer 1

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

 

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