Задать вопрос
29 ноября, 16:18

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

+1
Ответы (2)
  1. 29 ноября, 18:40
    0
    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
  2. 29 ноября, 19:23
    0
    {

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

    Важно, что во второй раз выбор происходит уже среди 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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Как написать программу в Паскале, чтобы 2 рандомных числа не повторялось? ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы