Pamjatj-samij pervij predmet xranenija informacii
Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
11КГц=11000гц
1 мин=60 секунд
11000*8*60=5280000/4=1320000 байт/1024=1289,0625 кб/1024=1мб
Вроде так)
Повторить пять раз
Нарисовать квадрат 2х2 клетки.
Сместиться влево на две клетки и вниз на одну.
Закончить рисование