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

1 ответ

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

Megamozg

2200

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

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

Найти нужный

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

Валя шифрует русские слова, записывая вместо каждой буквы её код(см. таблицу). Даны кодовые цепочки: 121212, 203105, 253010, 203033 Найдите среди них... Помогите пожалуйста Два текста содержат одинаковое количество символов. Первый текст составлен в алфавите мощностью 65536 символов. Второй текст в алф... Помогите пожалуйста...!)... Каждый объект, зарегистрированный в информационной системе, получает уникальный код из 14 символов, каждый из которых может быть одной из 26 заглавных... Напишите алгоритм "чистка зубов"...