profile

Опубликовано 5 лет назад по предмету Информатика от Avakarit

Помогите пожулайста!!!!!! Надов программе вывести числа рандомно от 1 до 100

  1. Ответ
    Ответ дан XletstraikcX

    const St=1; En=100;

    var

    a:array[St..En] of boolean;

    i,q,n:integer;

    begin

    Randomize;

    for i:=St to En do

    a[i]:=false;

    i:=0;

    q:=En-St+1;

    while i<Q do begin

    n:=St+Random(En);

    if not(a[n])

    then begin writeln(n);

    inc(i);

    end;

    end;

    end.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт


Другие вопросы
Артур Альбертович Батманов
Английский язык - 1 неделя назад

Можете помочь нужен рассказ на английском что моя мама работает на валберис

sasha
Физика - 1 неделя назад

Рассчитай растояние от поверхности земли, на котором сила притяжения, действующая на тело будет 5,5 раз меньшле чем на поверхности земнли. радиус земли прнять равным 6400 помогите!!!!!!!!!!!

Hilzon
Физика - 2 недели назад

Какое количество теплоты потребуется чтобы расплавить 100 г льда взятого при температуре -5 а затем полученую воду нагреть до 20 градусов.

Hilzon
Физика - 2 недели назад

Сколько дров необходимо для того чтобы нагреть 50 л воды в стальном котле массой 10 кг от 15 градусов до 65 градусов? потерями тепла пренебречь.

Hilzon
Физика - 2 недели назад

Какое количество теплоты понадобится для того, чтобы в алюминиевом чайнике массой 700г вскипятьть 2кг воды? начальная температура воды 20 градусов. помогите пожалуйса решить задачу


Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.