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

зделать на паскале

fedrfedr: What can I do... sorry ...

fedrfedr: Продублируйте вопрос, напишу комментарии. Корректировать сайт не дает

makomako201950: ok

makomako201950: прсто непонятно

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

зделать на паскале

fedrfedr: Да нет, условия задачи я вижу. Ответ закрыт от изменений. Я имел в виду добавить новый вопрос через кнопку "Задай вопрос". Туда я помещу ответ с комментариями. Жду... Мне домой пора идти...

fedrfedr: Попробую выложить в комментариях, но тут может сохраниться неправильно

fedrfedr: program Random3;
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; // Получаем случайное число от 1 до 9 и записываем в массив
Write (A [i], ' '); // и сразу выводим его на экран
end;
b := True; // флаг b для проверки подходящих чисел

fedrfedr: for i := Low (A) to High (A) do // цикл от минимального элемента А до максимального
if A [i] mod 3 <> 0 then begin // проверяем на некратность трем (остаток от деления на 3 не равен 0)
b := False; // найдено некратное число, устанавливаем флаг в false
Break; // и выходим из цикла, т.к. остальные числа проверять не имеет смысла
end;
WriteLn;
if b then // проверяем флаг и выводим соответствующее сообщение
WriteLn ('OK')
else
WriteLn ('NO OK');
ReadLn;
end.

fedrfedr: пришлось разбить на 2 части, больше 500 символов не принимает