1) 8*8 = 64 бита
2) 3КБ = 3072 Б = 24576 бит
3) 102912
4) 2*8*24 = 384 бит
5) 50% (???)
Program proizv;
var i, n, s:integer; a:array[1..12] of integer; sred:real;
begin
s:=0;
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(86)+11;
writeln(a[i],' ');
s:=s+a[i];
end;
sred:=s/n;
writeln('sred=',sred);
end.
1) 3) 4)
Лиса любит розовые,но не любит зелёные=>она выберет розовые.
Волк любит синие,но не любит зелёные=>он выберет зелёные
Ягнёнок любит и синие и розовые,но т.к. розовые заняты=>он возьмёт синие
program pr;
var
a,b:integer;
begin
readln(a,b);
while(a<=b) do readln(a,b);
writeln(0.5*a*b,', ',a+b+sqrt(a*a+b*b));
end.