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

1 ответ

Посмотреть ответы

Megamozg

2205

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

Хороший ответ

29 декабря 2022 12:43

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Что является мозгом компьютера?... Составить программу вычисления корней квадратного уравнения по данным значениям его коэффициентов... Пожалуйста,сроно надо 2. Информация в памяти компьютера представлена в: А) десятичной системе счисления; Б) шестнадцатеричной системе счисления;... ниже в табличной форме представлен фрагмент базы данных о результатах тестирования учащихся (используется 100 бальная шкала) (смотри вложение) сколько... Подскажите, пожалуйста, чему равно значение Суперпозиций σ((х2, σ(х3,х2)) и σ(х3, 0, 0, 1) ?...