Var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=3*i;
Write(a[i],' ')
end;
Writeln
end.
1) б)монитор
2) 10бит, 2байта, 20 байтов, 1010байтов, 1 Кбайт
3) 1,5*1024*1024*8=12582912/128000=98,4 сек
I = log2<span> K , эта формула имеет также расширенный вид </span>
Var
a,b:real;
begin
read(a,b);
writeln(a*b);
end.