// Example program
#include <iostream>
#include <string>
int main() {
int num[20];
for (int n = 0; n < 20; n++) {
num[n] = n*3; }
for (int n = 0; n < 20; ++n) {
std::cout << num[n] << " ";
}
return 0;
}
Ответ:
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.
#incluide
void main( )
{
int a,b;//описание переменных
scant("%d%d",b);&//ввод
printf("a=%d b=%d",a,b)//вывод
}
<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644
Самый маленький круг-желтый
потом зеленый
красный вокруг зеленого
самый большой синий
Объяснение ...в множестве многоугольников есть четырехугольники (ромбы,прямоугольники, трапеции и др)
потом четырехугольники, только с прямыми углами---прямоугольники
ну и затем квадраты их меньше всего