Цикл с параметром.Pascale.Нужно написать программу.Определить количество чисел, кратных 5, среди N чисел, заданных случайным образом в диапозоне от -50 до 50.
Цикл с параметром.Pascale.Нужно написать программу.Определить количество чисел, кратных 5, среди N чисел, заданных случайным образом в диапозоне от -50 до 50.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
N, num, count, i: integer;
begin
writeln('Enter the value of N:');
readln(N);
count := 0;
randomize;
for i := 1 to N do
begin
num := random(101) - 50; // generate a random number between -50 and 50
if num mod 5 = 0 then // check if the number is divisible by 5
count := count + 1;
end;
writeln('The number of numbers divisible by 5 in the randomly generated numbers is: ', count);
end.
Программа генерирует N случайных чисел в диапазоне от -50 до 50 и определяет количество чисел, которые кратны 5.