Найдите сумму чисел - Pascal ABC
Формулировка задачи:
Найти сумму чисел кратных 3 или 7 из 10 целых случайных чисел, а также их количество и еще среднее арифметическое этих чисел.
Решение задачи: «Найдите сумму чисел»
textual
Листинг программы
var count, sum, i, x: integer;
begin
randomize;
for i := 1 to 10 do begin
x := random(101) - 1;
write(x, ' ');
if (x mod 3 = 0) or (x mod 7 = 0) then begin
sum := sum + x;
inc(count);
end;
end;
writeln;
writeln('Сумма = ', sum);
writeln('Количество = ', count);
writeln('Среднее = ', sum / count);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д