Цикл с параметром.Pascale.Нужно написать программу.Определить количество чисел, кратных 5, среди N чисел, заданных случайным образом в диапозоне от -50 до 50.
Цикл с параметром.Pascale.Нужно написать программу.Определить количество чисел, кратных 5, среди N чисел, заданных случайным образом в диапозоне от -50 до 50.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CountMultiplesOf5;
var
N, i, num, count: Integer;
begin
count := 0;
// Ввод количества чисел N
write('Введите количество чисел N: ');
readln(N);
// Генерация N чисел и подсчет чисел, кратных 5
if num mod 5 = 0 thenfor i := 1 to N do
begin
num := random(101) - 50; // Генерация числа от -50 до 50
writeln('Сгенерированное число: ', num);
count := count + 1;
end;
writeln('Количество чисел, кратных 5: ', count);
end.