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

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

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

Найти нужный

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

Определите, устройством информации ввода или вывода информации является каждое из устройств , названия которых приведены ниже (соедините стрелками)... Какие разъемы имеются на системной плате?... Пароль содержит 8 символов .Больших и малых латинских букв,цифр и некоторых знаков. Всего разрешенных символов 92. Составьте числовое выражение для об... Заполните схему передача информации... Почему язык программирования паскаль считается универсальным? Вот такой на такой вопрос нам задали дать ответ по информатике)...