Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
27 декабря 2022 12:43
773
Дано трехзначное число найдите сумму квадратов его чисел
1
ответ
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
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
0
·
Хороший ответ
29 декабря 2022 12:43
Остались вопросы?
Еще вопросы по категории Информатика
Средства создания и сопровождение сайта...
. В каком направлении от монитора вредные излучения максимальны? 1) от экрана вперед 2) от экрана назад 3) от экрана вниз 4) от экрана вверх...
Begin GetTime(часы,минуты,секунды,миллисекунды); Выполнение тестов; GetTime(часы,минуты,секунды,миллисекунды); end. Как узнать время выполнения тесто...
Придумайте новый вид информационных услуг....
Объём сообщения, содержащего 2048 символов, составил 1/512 Мбайта. Каков размер алфавита, с помощью которого записано сообщение?...