Question

Надо сгенерировать 3 рандомных чисел.Если эти три числа будет делится на 3 надо поставить ОК а если эти три числа не будет делится на 3 тогда поставим NO OK. зделать на паскале

Answer 1

Ответ:

program Random3;

uses

 System.SysUtils;

var

 A: array [1..3] of Integer;

 i: Integer;

 b: Boolean;

begin

 Randomize;

 Write ('Три случайный числа: ');

 for i := Low (A) to High (A) do begin

   A [i] := Random (9) + 1;

   Write (A [i], ' ');

 end;

 b := True;

 for i := Low (A) to High (A) do

   if A [i] mod 3 <> 0 then begin

     b := False;

     Break;

   end;

 WriteLn;

 if b then

   WriteLn ('OK')

 else

   WriteLn ('NO OK');

 ReadLn;

end.

Answer 2

Конечно! Вот пример кода на языке Pascal, который генерирует три случайных числа и проверяет, делятся ли они на 3:

pascalCopy code
program CheckDivisibility;

uses
  SysUtils;

var
  num1, num2, num3: Integer;

begin
  Randomize;  // Инициализация генератора случайных чисел

  // Генерация трех случайных чисел
  num1 := Random(100) + 1;  // Генерируем число от 1 до 100
  num2 := Random(100) + 1;
  num3 := Random(100) + 1;

  // Проверка делимости чисел на 3
  if (num1 mod 3 = 0) and (num2 mod 3 = 0) and (num3 mod 3 = 0) then
    WriteLn('OK')
  else
    WriteLn('NO OK');

  ReadLn;
end.

Этот код использует функцию Randomize, чтобы инициализировать генератор случайных чисел, и функцию Random, чтобы генерировать случайные числа от 1 до 100. Затем он проверяет делимость всех трех чисел на 3 с помощью оператора mod, который возвращает остаток от деления. Если все три числа делятся на 3 без остатка, выводится сообщение "OK", в противном случае выводится сообщение "NO OK".

Надеюсь, это поможет вам!