Про синтаксис сказать ничего не могу, вроде правильно
объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
1)48*40=1920 (строк) - количество строк в одной странице
2)1920*64=122880 (символ) - количество символов в одной странице
т.к код - 8 бит, то 1 символ = 1 байт
Отсюда следует, что 122880 байт - вес файла.
3)122880/1024=120 (Кб)
Ответ: 1)
Const dlin = 100;
var b:array[1..dlin,1..2] of integer;
i,j,x:integer;
begin
writeln('Исходный массив:');
for i:=1 to dlin do
begin
b[i,1]:=random(800)+100;
write(b[i,1],' ');
b[i,2]:=b[i,1] mod 10 + b[i,1] div 100 + b[i,1] div 10 mod 10;
end;
writeln;
for i:=1 to dlin-1 do
for j:=dlin-1 downto i do
if b[j,2]>b[j+1,2] then
begin
x:=b[j,2]; b[j,2]:=b[j+1,2]; b[j+1,2]:=x;
x:=b[j,1]; b[j,1]:=b[j+1,1]; b[j+1,1]:=x;
end;
writeln('Отсортированный массив:');
for i:=1 to dlin do
write(b[i,1],' ');
<span>end.</span>
Хранение информации
Передача информации
Обработка информации
Поиск информации