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

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

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

Найти нужный

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

Дано трёхзначное число. Напишите программу, которая определяет: а) есть ли среди цифр заданного целого трёхзначного числа одинаковые; пример входных д... Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Напишите программу на Паскале.... Устройство хранения программ и данных.(6 букв, начинается на "п"... посчитай, сколько теперь слов в языке прины и шароми. мощность алфавита равна 4 . длина слов — 3,4 и 5 символа... Расширение bmp.jpg.gif имеют...