Найдите сумму, количество и среднее арифметическое всех целых чисел из интервала [100; 200], кратных 17 - Pascal ABC
Формулировка задачи:
найдите сумму,количество и среднее арифметическое всех целых чисел из интервала [100;200] кратных 17
Решение задачи: «Найдите сумму, количество и среднее арифметическое всех целых чисел из интервала [100; 200], кратных 17»
textual
Листинг программы
program pr;
var
i, sum, cout: integer;
avg: real;
begin
cout := 0;
sum := 0;
for i := 100 to 200 do
if i mod 17 = 0 then
begin
write(' ',i:3);
cout := cout + 1;
sum := sum + i;
end;
avg := sum / cout;
writeln;
writeln('Количество чисел кратных 17: ', cout);
writeln('Сумма чисел кратных 17: ', sum);
writeln('Среднее арифметическое чисел кратных 17: ', avg);
end.
Объяснение кода листинга программы
- Создается программа
prс использованием языка Pascal ABC. - Объявляются переменные: i, sum, cout - целочисленные, и avg - вещественное.
- Устанавливаются начальные значения для переменных: cout = 0, sum = 0, avg = 0.
- Запускается цикл
for, который проходит по всем числам в диапазоне от 100 до 200 (включительно). - Внутри цикла проверяется условие: если число i кратно 17 (i mod 17 = 0), то выполняется определенный блок кода.
- В блоке кода записывается пробел (write(' ')), затем переменная i выводится на экран (write(i:3)), счетчик cout увеличивается на 1 (cout := cout + 1) и сумма чисел увеличивается на текущее значение i (sum := sum + i).
- После выполнения блока кода, вычисляется среднее арифметическое (avg := sum / cout).
- По завершению цикла, выводятся результаты: количество чисел кратных 17 (writeln('Количество чисел кратных 17: ', cout)), сумма чисел кратных 17 (writeln('Сумма чисел кратных 17: ', sum)) и среднее арифметическое (writeln('Среднее арифметическое чисел кратных 17: ', avg)).
- Программа завершается.