Program Main;
var c1, c2, c3, t1, t2, t3, s: integer;
Begin
Readln (c1, c2, c3);
Readln (t1, t2, t3);
c1:=c1*t1;
c2:=c2*t2;
c3:=c3*t3
s:=c1+c2+c3;
Writeln (c1);
Writeln (c2);
Writeln (c3);
Writeln (s);
Readln;
End.
После всех вычислении получается ответ 4
Var
M, N: integer;
begin
read(M, N);
var ar := arrrandom(10, N, M);
writeln('Полученный массив:');
ar.Println;
end.
256 мбайт * 1024 * 1024 * 8 = 2147483648 бит.
Исходя из предложенных вариантов, 215
N = 24
N=2^i
i= 5
I= 12*5= 60 бит (лебедя)
I=8*5= 40 (журавля)