Думаю, такая программа подойдёт (делал в PascalABC.NET 3.4.2):
var
i, n, t: integer;
begin
Write('сколько чисел вывести подряд: ');
Read(n);
for i := 1 to n do
t := Random(1, 25 - 1);
if t = 18 then t := 25;
Println(t);
end;
end.
program Chernovik;
var i,a:integer;
randomize;
for i:=1 to 25 do
repeat
a:=random(25)+1;
until a<>18;
write(a,' ')
end
Объяснение:
Основной цикл со счётчиком для вывода нужного количества чисел и добавляем цикл с постусловием, выход из которого возможен только при а не равном 18
Думаю, такая программа подойдёт (делал в 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.
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