Предмет: Информатика,
автор: massel25
СРОЧНО!!!!!!!!!! ЗАДАНИЕ ДЛЯ ПАСКАЛЯ!!!!!
ПОМОГИТЕ ПОЖАЛУЙСТА,
ЗАДАНО НАТУРАЛЬНОЕ ЧИСЛО N. Заменим это число суммой квадратов его цифр. Какое число получается в результате это операции?
Огромное спасибо за помощь!!!!!
Ответы
Автор ответа:
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
Предмет: Физика,
автор: reitergalina2005
Предмет: Английский язык,
автор: jurayevahilola0
Предмет: Математика,
автор: SuperStar200
Предмет: Алгебра,
автор: W0lfYSaiyajiN