Потому что диван,кровать,шкаф и парта это мебель!
Пусть дан массив real arr[1..n][1..n1]
заведём массивы real s1[1..n], s2[1..n1]
n - кол - во строк
n1 - кол -во столбцов
Основная часть:
...
for i:= 1 to n do
s1[i] := 0;
for i:= 1 to n1 do
s2[i] := 0;
for i:=1 to n do begin
for j:=1 to n1 do begin
s1[i] := s1[i] + arr[i][j];
s2[j] := s2[j] + arr[i][j];
end;
s1[i] := s1[i] / n
end;
...
s1[i] - среднее арифметическое для i строки
s2[i] - сумма элементов для i столбца
1 символ - 1 байт
1 строка - 80 байт(1*80)
1 страница - 80000 байт(80*100)
1 книга = 80000000 байт(80000*1000)
2 гб = 2048 мб = 2097152 кб = 2147483648 б
всего книг - 26(2147483648/80000000)
Ответ: такая же задача уже была сегодня, поэтому дублирую свой ответ еще раз:
program TorLoki;
var
n, m: Integer;
T, L: Double;
begin
Write ('Введите N и M: ');
ReadLn (n, m);
L := n / (m - 1);
T := L + n;
WriteLn ('Сила Тора = ', T :10 :6);
WriteLn ('Сила Локи = ', L :10 :6);
ReadLn;
end.
Объяснение:
нужно решить систему уравнений:
T = L + N
T = L * M
получается
L * M - L = N
L (M - 1) = N
L = N / (M - 1)
это сила Локи, а для Тора:
Т = L + N или T = L * M можно и так и так
Var
a,b:real;
begin
writeln('Сколько стоит электричество?');
read(a);
writeln('Сколько показывает <span>счетчик</span>?');
read (b);
writeln('Вам нужно заплатить ', a*b);
end.