Question

СРОЧНО!!!!!!!!!! ЗАДАНИЕ ДЛЯ ПАСКАЛЯ!!!!!
ПОМОГИТЕ ПОЖАЛУЙСТА,
ЗАДАНО НАТУРАЛЬНОЕ ЧИСЛО N. Заменим это число суммой квадратов его цифр. Какое число получается в результате это операции?
Огромное спасибо за помощь!!!!!

Answer 1

Ответ:

var

  s,n,m :integer;

begin

write('введите натуральное число: ');

readln(n);

s:= 0;

repeat

  m:= n mod 10;

  s:= s + m*m;

  n:= n div 10;

until n = 0;

writeln('сумма квадратов цифр: ',s);

end.