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

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

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

Найти нужный

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

Пожалуйста, помогите решить задачу. https://imgur.com/a/dyviDtr Я готов оплатить, только решите, на любом ЯП!!!... Положение курсора в слове с ошибкой отмечено чертой: ДИАГРАММ|МА Чтобы исправить ошибку, следует нажать клавишу: 1)Delete 2)Backspace 3)Delete или... Resource-image resource-image Директор IT-школы Борис Иванович повесил на двери VR-лаборатории кодовый замок. Замок — это пустые квадраты, в которые н... Алфавит некоторого языка состоит из 64 символов. За сколько секунд передать текст из 2000 символов. если скорость передачи данных 50 байтов в секунду.... Сколько существует натуральных чисел x, для которых выполнено неравенство 11010001(2) < x < DF(16)?В ответе укажите только количество чисел, сам...