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

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 адрес; б) Web-сервер; в) домашнюю Web-страницу Как форм... Теоретический материал Деление без остатка Чтобы выполнить деление на цело в Python, можно воспользоваться целочисленным делением. В этом случае резу... Что такое легенда диаграммы? 1)подпись,определяющая категорию данных на диаграмме,с использованием узора или цвета 2)название диаграммы 3)подписи да... На рисунке -схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, И, К, Л, М, Н, П, Р, С, Т, У. По каждой дороге можно двигаться только в одном направ... Укажите правильный вариант записи условия "x-двузначное число"...