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

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

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

Найти нужный

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

Сканируется цветное изображение размером 10*10 см.Разрешающая способность сканера 1200*1200dpi,глубина цвета 24 бита...Какой информационный объем буде... Какое количество ячеек имеет оперативная память объёмом 512 Мбайт?... Помогите с заданием,пожалуйста. В таблице (она во вложениях)приведена стоимость перевозок между соседними железнодорожными станциями. Постройте схему... . В каком направлении от монитора вредные излучения максимальны? 1) от экрана вперед 2) от экрана назад 3) от экрана вниз 4) от экрана вверх... Для подключения компьютера к телефонной сети используется: 1.модем 2.монитор 3.сканер 4.принтер...