Ответ:
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.
Всего восемь путей( по крайней мере я столько нашла)
А б е к
А в к
А г к
А д д к
А д ж г к
А д ж г в к
А б в к
А г ж к
Функции:
<u><em>trunc</em></u> - возвращает целую часть вещественного числа.
<u><em>round</em></u> - возвращает число, округленное до ближайшего целого. Если вещественное находится посередине между двумя целыми,то округление осуществляется к ближайшему четному (банковское округление).
<em><u>div</u></em> - результат целочисленного деления, точнее округленное до ближайшего целого по направлению к 0.
<em><u>mod</u></em> - остаток от целочисленного деления.
Решение:
trunc(6,9) = 6
trunc(6,2) = 6
round(6,9) = 7
20 div 6 = 3
20 mod 6 = 2
2 div 5 = 0
2 mod 5 = 2
Используем закон де Моргана и закон двойного отрицания.
Решение во вложении.