Помогите с задачей на pascal abc - на теме отсутвовал...
Задача:
НА ЗАДАЧУ ДАНО ТРЕХЗНАЧНОЕ ЧИСЛО, РАВЕН ЛИ КВАДРАТ ЭТОГО ЧИСЛА СУММЕ КУБОВ ЕГО ЦИФР. Помогите, пожалуйста
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.
самое легкое что я придумал
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
