1209/7 е ли нужно сократить то 172 целых 5/7
Ответ:
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.
#include <iostream>
using namespace std;
int main()
{
int ar[20];
for(int i=0;i<20;i++) cin>>ar[i];
return 0;
}
Циклический алгоритм – описание действий, которые должны повторяться указанное число раз или пока не выполнено заданное условие.