Как написать программу в Паскале, чтобы 2 рандомных числа не повторялось?
Как написать программу в Паскале, чтобы 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.
Гость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
Не нашли ответ?
Похожие вопросы