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

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

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

Найти нужный

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

Что общего у пиктограммы и символа? в чем между ними различие... В Норильске, Москве, Ростове и Пятигорске живут 4 супружеские пары, причем в каждом городе живет только одна супружеская пара. Имена этих супругов: Ан... Текст,содержащий 8192 знака (с пробелами),закодирован с помощью алфавита,содержащего 128 символов.Сколько килобайтов занимает в памяти этот текст? С Р... 1. Дайте определение информации , приведите пример. 2. Как мы познаём окружающий мир ? 3. Что означает чувственное познание мира ? 4. Что означает лог... Переведите целые числа из десятичной системы счисления в шестнадцатеричную 256, 400, 1234, 2012. помогите пожалуйста решить очень нужно...