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