var a:array [byte,byte] of real;
i,j,n,m:byte;
s:real;
d,p:word;
begin
write('Введите количество строк n = ');readln(n);
write('Введите количество строк m = ');readln(m);
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
s:=0;d:=0;p:=0;
for i:=1 to m do begin
for j:=1 to n do
s:=s+a[j,i];
for j:=1 to n do
if a[j,i]<(s/n) then inc(d);
writeln('Количество элементов в столбце ',i,' прямоугольной вещественной матрицы, меньших среднего арифметического d = ',d,' Среднее арифметическое = ',(s/n):0:4);
p:=p+d;
d:=0;s:=0;
end;
writeln('Общее количество элементов меньших элементов в столбцах = ',p);
writeln('Матрица');
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
Для начала переведем 100Мбит в байты.
100Мбитс=100*1024*1024/8=13107200 байт
13107200 байт*1с = 13107200 байт.
Ответ: 13107200 байт.
Использовать Чертежник
алг
нач
сместиться в точку (1,1)
опустить перо
сместиться в точку (4,4)
сместиться в точку (6,10)
сместиться в точку (1,1)
кон
Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
if (x mod 2 = 0) then writeln('true')
else writeln ('false');
end.
(в программе 2 таких чисел не существует)
Program n_2;
var x, y:integer;
begin
readln(x);
y:=x*x;
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
x:=x*x*x;
if (x=y) then writeln('true')
else writeln ('false');
end.
Program n_3;
var a, b, c:integer;
begin
read(a, b, c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln ('false');
end.
800*600=480 000 число пикселей
480000*4=1 920 000 число пикселей на четырех страницах... .
глубина цвета 24...
24 это - 16 777 216 цветов (или 1 пиксель использует 3 байта)
1920000*3 = 5 760 000 байт = 46 080 000 бит = 5625 КБ = 5.5 МБ