1. Информатика
  2. В игре Русское лото» из мешка

В игре <<Русское лото» из мешка случайным образом выбираются бочонки, на каждом из которых написано число от 1 до 90. Напишите 5 программу, которая выводит наугад первые 5 выигрышных номеров.
Доработайте программу <<Русское лото» так, чтобы все 5 значений гарантированно были бы разными (используйте разные диапазоны).(в паскале)

lol1039 lol1039    3   23.01.2022 19:05    29

Ответы
privitvsim privitvsim  23.01.2022 19:10

1) Дополненная

program Hello;

var

   a : array[1..90] of integer;

   i, x : integer;

begin

   randomize();

 for i:= 1 to 90 do

 begin

   a[i] := i;

 end;

 

 for i:= 1 to 5 do

 begin

   x := random(90) + 1;

   if a[x] <> 0 then

   begin

       writeln(a[x]);

       a[x] := 0;

   end;

 end;

 

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
arinabesan6 arinabesan6  27.04.2020 19:15
Таблицы истинности логических функцийРебят не шарю​...
tjumentseva20031 tjumentseva20031  27.04.2020 19:15
1) Переведите 51 Кб в байты. 2) Переведите 6 Мб в байты. 3) Переведите 32 Кб в биты. 4) Переведите 67198958 бит в Мб, ответ округлите до сотых 5) Вычислите, сколько бит в данном...
vbackarevap09p0h vbackarevap09p0h  27.04.2020 19:17
Постройте электронную таблицу «Оплата электроэнергии» для расчета ежемесячной платы за расход электроэнергии в течение года. Исходной информацией являются показания счетчика в...
annya306 annya306  27.04.2020 19:19
Решить задачки с и ексель 1. Знайдіть для значень Y i Z з діапазону - 1;1 кількість додатніх чисел і виділіть їх кольором 2. Знайдіть суму значень Z 3. Знайдіть найбільше і найменше...
Лида1113внк Лида1113внк  27.04.2020 19:19
решить практическую работу 3.6....
dashusha0703 dashusha0703  27.04.2020 19:22
Число 8¹⁰=1000² в восьмиразрядном представлении имеет вид:​​...
matveeva17vay matveeva17vay  27.04.2020 19:22
Очень Выполните действия (а) и сравните числа(б). Индекс внизу каждого числа обозначает систему счисления, в которой это число записано. ответ представьте в той системе счисления,...
NadiushaSpermiulina NadiushaSpermiulina  27.04.2020 19:24
Тест по программированию на языке Паскаль. Задание #1 Во С какого слова обычно начинается раздел операторов? Выберите один из 4 вариантов ответа: 1) uses 2) var 3) begin 4) write...
Kjutf Kjutf  27.04.2020 19:22
Посчитать количество элементов массива равных 0.Посчитать сумму индексов, тех элементов, значение которых равно 1.Посчитать произведение элементов массива, значение которых равно...
rom20081sdf rom20081sdf  27.04.2020 19:25
Даны два целых числа А и В (А В). Найти произведение всех целых чисел от А до В включительно!схемой! ​...

Популярные вопросы