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

Question

Помогите с задачей на pascal abc — на теме отсутвовал… Задача: НА ЗАДАЧУ ДАНО ТРЕХЗНАЧНОЕ ЧИСЛО, РАВЕН ЛИ КВАДРАТ ЭТОГО ЧИСЛАСУММЕ КУБОВ ЕГО ЦИФР. Помогите, пожалуйста

Answer 1

73

angelblue

16 марта 2023

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. Самое легкое что я придумал

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: