Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 декабря 2022 12:43
800
Дано трехзначное число найдите сумму квадратов его чисел
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
Остались вопросы?
Еще вопросы по категории Информатика
Выполните операцию умножения над двоичными числами:а)1010*11; б)111*101; в)1010*111 объясните пожалуйста)...
Подберите примеры ситуаций (из повседневной жизни, художественной литературы, кино), в которых информация: А) СОБИРАЕТСЯ Б) КОПИРУЕТСЯ В) ОБРАБАТЫ...
Нужно написать программу проверки знания даты основания Санкт-Петербурга....
Напишите программу, которая запрашивает три цифры (от 0 до 9) и выводит число, получающееся из этих цифр в том же порядке, что и при вводе. С++ , пож...
СОСТАВИТЬ СХЕМУ X=A*B(верхнее подчёркивание)+A(верхнее подчёркивание)*B*C(верхнее подчёркивание) и всё это тоже верхнее подчёркивание там картинка эт...