program Chernovik;
var i,a:integer;
begin
randomize;
for i:=1 to 25 do
begin
repeat
a:=random(25)+1;
until a<>18;
write(a,' ')
end
end.
Объяснение:
Основной цикл со счётчиком для вывода нужного количества чисел и добавляем цикл с постусловием, выход из которого возможен только при а не равном 18
Windows - тың анықтамалық жүйесі.
Программалық жабдықтар интерфейсіндегі негізгі элемент- оның анықтамалық жүйесі. Онда әрбір қолданушыларға қасиетті информация толық түрде болуы тиіс. Windows ортасының бір артықшылығы- оның анықтамалық жүйесі бар программаларға ортақ.
едәуір толықтыруына байланысты бумы ОЖ д.а.
Windows 3.X ОЖ- ң алғашқы сұлбасы б.т., Windows қосымшаларының жұмыс мүмкіндіктерін қамтамасыз ете отырып сонымен қатар MS DOS –тың барлық қолданбалы программаларын қолдайды. Мысалы: мәтіндік процессор, деректор қоймасын
Думаю, такая программа подойдёт (делал в PascalABC.NET 3.4.2):
var
i, n, t: integer;
begin
Write('сколько чисел вывести подряд: ');
Read(n);
for i := 1 to n do
begin
t := Random(1, 25 - 1);
if t = 18 then t := 25;
Println(t);
end;
end.