Предмет: Информатика, автор: massel25

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

Ответы

Автор ответа: vaduxagarusov
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.

Похожие вопросы
Предмет: Математика, автор: ellbagaytdinova2011
Предмет: Алгебра, автор: W0lfYSaiyajiN