Pascal
program matr;uses CRT;var fl:char;a:array [1..100,1..100] of integer;i,j,m,n,mmax:byte;max:integer;label met;beginmet:clrscr;max:=0;writeln ('Введите размерность матрицы NxM');readln (n);readln (m);randomize;for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=-50+random(101);write (a[i,j]:4);end;{создание и вывод матрицы}writeln;end;writeln;for i:=1 to n do{нахождение максимального элемента}zfor j:=1 to m doif (a[i,j]>max) then beginmax:=a[i,j];mmax:=j;end;for i:=1 to n dowrite (a[i,mmax]:4);writeln;{Вывод столбца}for i:=1 to n do {нахождение одинаковых элементов}for j:=1 to n doif (a[i,j]=max)and(j<>mmax) then begin mmax:=j;write (a[i,mmax]:4);end;writeln ('Для продолжения нажмите любую клавишу,для выхода - "Х"');readln(fl);if (fl <> 'x') then goto met;<span>end.</span>
Франция- Париж, Чехия - Прага, Германия - Берлин, Испании - Мадрид, Португалии -Лиссабон
Var
i,n,m,x,k:Integer;
s:String;
Begin
Read(n);
While (n>0) do
begin
m:=(n mod 10);
n:=(n div 10);
x:=x+m;
k:=k+1;
end;
Writeln('Сума : ',x);
Writeln('<span>Середнє арифметичне </span> : ',x/k:0:1);
end.
Объём книги
600*36*64 = <span><span><span>
1382400</span> символов
При 1 байте на символ - </span></span><span><span><span>
1382400</span> байт
64 кб/с - это килобиты в секунду?
Тогда, при 8 битах в байте, надо передать
</span></span><span><span><span>
1382400</span>*8 = </span></span><span><span><span>
11059200</span> бит
за секунду передаётся 64*1024= </span></span><span><span><span>
65536</span> бит
а времени уйдёт
</span></span>11059200/65536 = <span><span><span>
168,75
</span>с</span></span>
