Как написать программу в Паскале, чтобы 2 рандомных числа не повторялось?

Question

Информатика

Вассочка

13 августа, 19:24

Как написать программу в Паскале, чтобы 2 рандомных числа не повторялось?

+4

Ответы (2)

Знаете ответ на вопрос?

Потапий · Answer 1

Var a, b, n:integer;

begin

n:=10;

Randomize;

a:=random (n) + 1;

b:=random (n) + 1;

while b=a do b:=random (n) + 1;

writeln ('a = ', a,' b = ', b) ;

end.

Пример:

a = 8 b = 4

Венедикта · Answer 2

{

Думаю, это должно работать

Важно, что во второй раз выбор происходит уже среди n-1 вариантов

}

const n = 10;

var i, j: integer;

begin

i : = 1 + random (n) ;

j : = 1 + random (n-1) ;

if j > = i then j : = j + 1;

write (i,' ', j)

end.