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

1 ответ

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

Megamozg

2170

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

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

Найти нужный

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

Внесите недостающие надписи в схему «информационные потоки»... При уменьшении растрового изображения a) Качество не изменяется b) Качество улучшается c)Теряются мелкие детали d) Появляется ступенчатый эф... Выберите фрагмент программы для определения: По введенному номеру цвета от 1 до 7 ввести его название в радуге, если введена другая цифра, то выдать с... Для какого из указанных значений числа X ложно выражение (X > 2) ИЛИ НЕ (X > 1)? 1) 1 2) 2 3) 3 4) 4 Для какого числа X истинно высказы... Как называется количество символов в алфавите позиционной системы счисления?...