Паскаль
переделать задачу под функцию
2. В двумерном массиве, состоящем из n целых чисел, найти сумму элементов в каждой строке. Размер произвольный.
Var a: array[1..50,1..50] of integer;
i, j, n, m,S: integer;
Begin
Write(‘сколько строк?’); Readln(m);
Write(‘сколько столбцов?’); Readln(n);
For i:=1 to m do
For j:=1 to n do
begin
write(‘a[‘,i,’,’,j,’)=’); readln (a[i,j]);
end;
For i:=1 to m do
begin
S:=0;
For j:=1 to n do
S:=S+a[i,j];
Writeln(‘сумма элементов в ‘,i,’ строке равна ‘,S);
end;
End.

1)
2 Мбайта =2*2^(23) бита ;        16=2^4;
2*2^(23)  :  2^4 = 2^(20) =1048576 символов в сообщении
2)
3*40*60=7200 количество символов
14400*2^3  : 7200 = 16 бит для одного символа
3)
10 кбайт =10*2^13 бит =5*2^14 бит
8*32*40 =2^3 * 2^5 *2^3 *5 =5*2^11
(5*2^14) : (5*2^11) = 2^3 =8 бит для одного символа
2^8 =256 допустимых символов в алфавите
4)
2*32*40 =2* 2^5* 2^3* 5 =5*2^9 символов на листе, на двух страницах
8 Кбайт =8*2^13 бит =2^16 бит
     2^16 :2^3 =2^13 символов в тексте
2^13 : (5*2^9)=2^4 : 5 =3,2 = 4 листа

1)
2 Мбайта =2*2^(23) бита ;        16=2^4;
2*2^(23)  :  2^4 = 2^(20) =1048576 символов в сообщении
2)
3*40*60=7200 количество символов
14400*2^3  : 7200 = 16 бит для одного символа
3)
10 кбайт =10*2^13 бит =5*2^14 бит
8*32*40 =2^3 * 2^5 *2^3 *5 =5*2^11
(5*2^14) : (5*2^11) = 2^3 =8 бит для одного символа
2^8 =256 допустимых символов в алфавите
4)
2*32*40 =2* 2^5* 2^3* 5 =5*2^9 символов на листе, на двух страницах
8 Кбайт =8*2^13 бит =2^16 бит
     2^16 :2^3 =2^13 символов в тексте
2^13 : (5*2^9)=2^4 : 5 =3,2 = 4 листа