Так как мощность алфавита 128 символов, то на 1 символ нужно
log(2)128=7 бит
Кол-во информации в тексте:
800*7 бит = 800*7/8 байт = 700/1024 Кбайт ≈ 0,5 Кбайт
Const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..n*m]of integer;
i,j,buf,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
k:=k+1;
b[k]:=a[i,j];
end;
writeln;
end;
writeln;
for i:=1 to n*m-1 do
for j:=i+1 to n*m do
if b[i]>b[j] then
begin<span>
buf:=b[i];</span>
b[i]:=b[j];
b[j]:=buf;
end;
for i:=1 to m*n do<span>
write(b[i]:4);
end.</span>
на выходе из цикла х = 20
<span>var
a,x:integer;
Sum: integer;
begin
WriteLn('введите целое число');
ReadLn( a );
x:= a;
</span>Sum<span>:= 0;
while ( x<>0 ) do
begin
</span>Sum := Sum<span> + (x mod 10);
x := x div 10;
end;
WriteLn( 'Сумма цифр числа ',a,' = ', </span>Sum<span> );
</span>Пока Х больше нуля:
Находим остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;Избавляемся от последнего разряда числа n путем деления нацело на число 10.
600 мб переводим в килобайты, это = 614400кб. 61440 делим на 500 кб = 1228 (Таким образом узнали количевство фотографий в альбоме) Раз на одно фото уходит 6 сек., значит на просмотр 1228 фотографий будет затрачено 1228*6=7368 секунды. переводим 7368 сек в минуты 7368/60 = 122.8 минуты 122.8 минуты = 2 часа 2 мин