Технологии
Дано натуральное число N. Найти сумму квадратов цифр этого числа - вопрос №4356985
июнь 9, 2021 г.
-
Всего ответов: 1
-
Var
n,S:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
While n > 0 do
Begin
S:=S+Sqr(n mod 10);
n:=n div 10
End;
WriteLn('S = ',S);
End.
Похожие вопросы
Была выполнена проверка на уровне файла с последующим восстановлением файла. Некоторые фрагменты документа могли быть восстановлены либо удалены....
август 30, 2014 г.
Технологии