с информатикой! Мне нужно написать на паскале программу, где будут рандомно выпадать 25 чисел, но 18 не должно выподать. Типо рандомайзер без одного числа

syipyr syipyr    3   23.01.2021 10:44    23

Ответы
кошечка545 кошечка545  22.02.2021 10:47

Думаю, такая программа подойдёт (делал в 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.


с информатикой! Мне нужно написать на паскале программу, где будут рандомно выпадать 25 чисел, но 18
ПОКАЗАТЬ ОТВЕТЫ
unikkum22 unikkum22  22.02.2021 10:47

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика