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

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

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

Найти нужный

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

Задача Python Длина Московской кольцевой автомобильной дороги —109 километров. Байкер Вася стартует с нулевого километра МКАД и едет со скоростью v ки... С помощью стандартного приложения калькулятора вычислить перевод текущего года 2 8 и 16 -ю СС 2024(10) ... Массив A заполнили, а потом изменили: n := 2020; for i := 1 to n do A[i] := i; for i := 1 to n div 2 do A[i] := A[n + 1 - i]; Чему р... Какую ситуацию можно рассматривать как циклическую конструкцию?... 1. Для какого из приведённых чисел истинно высказывание: (число <75) И НЕ (число чётное)? 1) 46 2) 53 3) 80 4) 99 2. Для какого из приведённых чисе...