Question

Помогите с информатикой! Мне нужно написать на паскале программу, где будут рандомно выпадать 25 чисел, но 18 не должно выподать. Типо рандомайзер без одного числа

Answer 1

Думаю, такая программа подойдёт (делал в PascalABC.NET 3.4.2):

var

i, n, t: integer;

begin

Write('сколько чисел вывести подряд: ');

Read(n);

for i := 1 to n do

begin

t := Random(1, 25 - 1);

if t = 18 then t := 25;

Println(t);

end;

end.

Answer 2

Ответ:

program Chernovik;

var i,a:integer;

begin

randomize;

for i:=1 to 25 do

begin

repeat

a:=random(25)+1;

until a<>18;

write(a,' ')

end

end.

Объяснение:

Основной цикл со счётчиком для вывода нужного количества чисел и добавляем цикл с постусловием, выход из которого возможен только при а не равном 18