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

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

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

Найти нужный

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

Как удалить блокировку компьютера? Оплатить, блокировка сразу удалится Найти сайт с кодами разблокировки Поставить специальную утилиту удаление блокир... На месте преступления были обнаружены четыре обрывка бумаги. Следствие установило, что на них написаны фрагменты одного IP-адреса. Криминалисты обозна... А1. Что из нижеперечисленного не входит в алфавит языка Паскаль? 1) латинские строчные и прописные буквы, 2) арабские цифры, 3) русские строчные и п... Задание 2. Определите тип помехи (15 минут) Цель: научиться распознавать помехи. Ситуации: Определите, какая это помеха: Во время видеозвонка изобр... Для записи сообщения использовался 64-х символьный алфавит.каждая страница содержит 30 строк.все сообщение содержит 8775 байтов информации и занимает...