Ответы на вопрос:
// pascalabc.net // найти сумму чисел от 100 до 200 кратных 7. // подсчитать кол-во этих чисел. const nach = 100; // диапазон значений kon = 200; var n, s : integer; begin for var i : = nach to kon do // проверяем все числа по порядку if i mod 7 = 0 then begin // если оно кратно 7, то s : = s + i; // производим подсчеты n : = n + 1 end; write('сумма = ', s, '. количество - ', n) end.
Популярно: Информатика
-
Насттттттття18.01.2021 02:51
-
linaageeva9605.07.2022 09:17
-
alensozonova25.08.2022 06:45
-
Ева1111111111111148431.10.2022 21:08
-
evaeva200606.04.2020 12:28
-
5класс7513.04.2021 14:11
-
dianasemernjap036ew04.03.2021 19:31
-
nasti090200310.06.2021 23:08
-
zhanarzhaulyba28.12.2022 20:53
-
Удача57516.01.2023 04:10