Задание:
Помогите с задачей на pascal abc — на теме отсутвовал… Задача: НА ЗАДАЧУ ДАНО ТРЕХЗНАЧНОЕ ЧИСЛО, РАВЕН ЛИ КВАДРАТ ЭТОГО ЧИСЛАСУММЕ КУБОВ ЕГО ЦИФР. Помогите, пожалуйста
Решение:
uses crt; var a,s: integer; begin clrscr; repeatwrite ('Введите трехзначное число 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 ('Квадрат числа<>сумме кубов его цифр'); readlnend. Самое легкое что я придумал
Знаете другой ответ?