Question

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

Answer 1

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

Answer 2

Ответ:

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

Answer 3

Конечно, вот пример программы на Pascal, которая генерирует 25 случайных чисел от 1 до 25, но исключает число 18:

pascalCopy code
program RandomNumbers;
var
  i, randomNumber: Integer;
begin
  Randomize; // Инициализируем генератор случайных чисел
  writeln('Случайные числа от 1 до 25 без числа 18:');
  for i := 1 to 25 do
  begin
    repeat
      randomNumber := Random(25) + 1; // Генерируем случайное число от 1 до 25
    until randomNumber <> 18; // Повторяем, пока не получим число отличное от 18
    writeln(randomNumber);
  end;
end.

Эта программа использует генератор случайных чисел и повторяет генерацию числа до тех пор, пока оно не станет отличным от 18. Таким образом, гарантируется, что число 18 не будет включено в вывод.