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

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

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

Найти нужный

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

1. Запишите на алгоритмическом языке: а)ax² + bx + c б) v + at²/2 в)1/2(a+b)h г)1+x₁x₂/ b²c д)√a²+b² 2. Среди приведённых ниже четырёх арифметиче... Дам 40 баллов Вычислите десятичные эквиваленты следующих двоичных чисел: 1. 1111 [2] 2. 10101 [2] 3. 11011 [2] 4. 1010101 [2] Переведите целые... 2. Какие типы ПК вы можете назвать? Укажите основные дос- тоинства и недостатки ПК разных типов ... Что будет выведено на экран после выполнения программы? s := '123' s := s + '0' + s s := s + s вывод s Что будет выведено на экран после выполнен... Что нужно знать для определения информационного веса символа алфавита некоторого естественного или формального языка? 8 класс. Заранее спасибо...