Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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