Надов программе вывести числа рандомно от 1 до 100
yuliam2015
3
16.05.2019 21:00
3
Другие вопросы по теме Информатика
Сэээээ
06.12.2020 16:24
MAK222222
10.04.2020 22:28
NShott17
10.04.2020 22:27
PashinDaniil
03.02.2021 23:38
КрутойЧеловечек
03.02.2021 23:38
Карина162005
03.02.2021 23:38
ВладВишня
03.02.2021 23:38
margaRita2281
03.02.2021 23:39
Популярные вопросы
- К районам с острыми экологическими проблемами относятся А) Гренландия...
3 - 5.Знайдіть площу паралелограма, одна з висот якого дорівнює 8 см,...
3 - Найдите площадь круга с длиной окружности, равной периметру квадрата...
3 - 1. Гүлзарда 120 түп гүл өсіп тұр. Олардың 36%-ы түймедақ гүлдері,...
2 - решить уравнения 1)5целых 1/4 -(x-5/8)=3целых3/4, 2) 3/5у+4/15у=13...
1 - Виконати повний синтаксичний розбір речень.Весь степ,і лиман,і озеро,і...
1 - Укажіть речення, у якому вставне слово виражає послідовність викладу...
2 - умоляяяю Я не успел решить : но время мало тот кто решит Жду ...
3 - 1) Чем круг отличается от окружности? 2) Что такое длина окружности...
2 - Выписать частицы, определить их разряд Ах! Умолчу ль о матушке моей,...
3
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.