Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
27 декабря 2022 12:43
760
Дано трехзначное число найдите сумму квадратов его чисел
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
Остались вопросы?
Еще вопросы по категории Информатика
Какие устройства входят в состав видеоадаптера...
Помогите пожалуйста!!!! даю 50 баллов надо именно с дано и решением Часть 2. Задания с развернутой записью решения. 1. Сколько цветов содержится в п...
Языковые конструкции, с помощью которых в программах записываются действия, выполняемые в процессе решения задачи, называются: операторами операндами...
ПОМОГИ ПОЖАЛУЙСТА!! НЕ ИГНОРЬТЕ :( В графическом файле размером 100х100 пикселей, глубина цвета составляет 1 байт, определить количество цветов в пали...
Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N. Входные данные Задано единственное целое число N Выходные данные...