Наливаем в 9 литровое. Из него переливаем в 5 литровое. в 9 литровом останется 4 литра. Выливаем из 5 литрового воду и переливаем туда эти 4 литра. Затем набираем в 9 литровое снова воду и выливаем 1 литр в 5 литровое, т.к. там уже есть 4 литра. В 9 литровом останется 8 литров. Выливаем всю воду из 5 литрового и переливаем из 9 литрового 5 литров. В 9 литровом останется 3.
1 Мбайт =2^23 бита
1024 =2^10
2^23 : 2^10=2^13 бита - объём сообщения
1024 =2^10 cимволов - длина сообщения
2^13 : 2^10 =2^3 =8 бит - один символ
2^8 =256 символов - мощность алфавита (количество символов в алфавите)
Var
i,imax,max:integer;
b:array[1..50]of integer;
begin
for i:=1 to 50 do
begin
b[i]:=random(100);
write(b[i],' ');
if b[i]>max then
begin
max:=b[i];
imax:=i;
end;
end;
writeln;
writeln('Максимальное число: ',max,'; его номер: ',imax);
<span>end.</span>
Program n1;
Uses CRT;
Var a,b,s,i: integer;
begin
writeln('Vvedite A i B');
readln(a,b);
If a>b then
for i:=b to a do
begin
writeln(i);
s:=s+i;
end
else
if b>a then
for i:=a to b do
begin
writeln(i);
s:=s+i;
end
else writeln('ravny');
writeln('Summa = ',s);
readln
end.
Const nx=30;
var i,j,n,m,q,r:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;
begin
Write('Введите размер массива ');Readln(n);min:=100;
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=random(100)-2;write(A[i,j]:4);m:= m + A[i,j];end;writeln;end;
Sn:= m/n/n;write(m:9,Sn:9:4);writeln;
for i:=1 to n do begin
for j:=1 to n do begin
d:=abs(sn - A[i,j]);
if d < min then begin r:=i; q:=j; min := d;end;end;end;
write(A[r,q]:4,r:4,q:4);
<span>end.</span>