//PascalABC.NET версия 3.4.2.1991 от 03.03.19
//Если программа не запускается, то обновите версию
const
m = 99;
var
n, s, d, i, j: integer;
A, B: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.
по 5 заданию
Удовлетворяют 6 записей, кроме 4-й записи где Год посадки больше 1980 и и высота равна 3, а по условию должно быть меньше
Запись 5 хотя и год посадки больше 1980, но высота (3,2) больше 3, поэтому удовлетворяет условию.
Остальные записи удовлетворяют обоим условиям
Var
num: word;
begin
read(num);
write(num);
end.
__________________________
Все вроде как по заданию
210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,430,440,450,460,470,480,490.
V=
T ×I × H × 2
V=60
×16 × 32 000 × 2=
<span>61440000
бит/8 =7680000 байт/1024 = 7500 Кбайт</span>