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

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

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

Найти нужный

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

Какие формы общения в реальном времени существуют в интернете ?... Какие три закона робототехники? Пожалуйста, срочно надо... Дано натуральное число. Выведите его последнюю цифру. Входные данные Вводится натуральное число. Выходные данные Выведите ответ на задачу. Яз... Вычислить значение суммы s = 1+2+3+…+n для заданного n. Составить блок-схему от реки... один из первых отечественных персональных компьютеров БК-0010 имел оперативную память 16 Кбайт.Сколько страниц текста можно было бы разместить в памят...