Дано трехзначное число найдите сумму квадратов его чисел

sasha228111228 sasha228111228    2   06.07.2019 23:20    3

Ответы
nastya892968060 nastya892968060  02.10.2020 21:37
Var
  n,i,s:integer;
begin
  Write('Введите трехзначное натуральное число: '); Read(n);
  s:=0;
  for i:=1 to 3 do
    begin s:=s+sqr(n mod 10); n:=n div 10 end;
  Writeln('Сумма квадратов цифр равна ',s)
end.

Тестовое решение:
Введите трехзначное натуральное число: 714
Сумма квадратов цифр равна 66
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика