128 = 2^7 значит 7 бит на символ
Общий обьем данных 7*180*2048 = 2 580 480 бит = 322 560 байт = 315 кб
<span>непрерывно изменяющийся во времени</span>
Var
s,t,a,u0:real;
begin
writeln('Введите время');
readln(t);
writeln('Введите ускорение');
readln(a);
writeln('Введите началную скорость');
readln(u0);
s:=u0*t+((a*t*t)/2);
writeln(s);
<span>end.</span>
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
Изначально у нас есть четыре ёмкости из них :
одна 12/12 (полная) и три 0/5 ; 0/5 ; 0/3 (пустых).
Наглядно это весь процес выглядит следующим образом.
1) 12/12 ; 0/5 ; 0/5 ; 0/3 (это то что дано)
2) 7/12 ; 5/5 ; 0/5 ; 0/3
3) 2/12 ; 5/5 ; 5/5 ; 0/3
4) 2/12 ; 2/5 ; 5/5 ; 3/3
5) 0/12 ; 4/5 ; 5/5 ; 3/3
6) 3/12 ; 4/5 ; 5/5 ; 0/3
7) 3/12 ; 4/5 ; 2/5 ; 3/3
8) 6/12 ; 4/5 ; 2/5 ; 0/3
9) 6/12 ; 4/5 ; 0/5 ; 2/3
10) 1/12 ; 4/5 ; 5/5 ; 2/3
11) 1/12 ; 4/5 ; 4/5 ; 3/3
12) 4/12 ; 4/5 ; 4/5 ; 0/3