Question

Как вывести рандомные числа от 1 до 100 которые делятся на 5. Зделать на паскале

Answer 1

Ответ:

var a : integer;

begin randomize;

a:=(1 + random(20))*5;

writeln(a);

end.

Объяснение:

randomize для того, чтобы каждый раз получился новое число.

1-шаг. 0 ≤ random(20) ≤ 19

2-шаг. 1 ≤ 1 + random(20) ≤ 20

3-шаг. 5 ≤ (1 + random(20))*5 ≤ 100

(1 + random(20))*5 всегда делится на 5

Answer 2

Вот пример кода на Pascal, который генерирует случайные числа от 1 до 100, делящиеся на 5:

pascalCopy code
program RandomNumbers;

var
  i, num: integer;

begin
  randomize; // Инициализация генератора случайных чисел
  
  for i := 1 to 10 do // Генерация 10 случайных чисел
  begin
    repeat
      num := random(100) + 1; // Генерация случайного числа от 1 до 100
    until (num mod 5 = 0); // Проверка, делится ли число на 5
    
    writeln(num); // Вывод числа
  end;
  
  readln;
end.

Этот код использует функцию randomize, чтобы инициализировать генератор случайных чисел, и функцию random, чтобы генерировать случайные числа от 1 до 100. Затем он проверяет, делится ли сгенерированное число на 5, и продолжает генерацию, пока не будет сгенерировано число, удовлетворяющее этому условию. Результаты выводятся на экран.