2) ((abs(sin(sqrt(10.5*x))))/(exp(2/3*ln(x))-0.143))+2*pi*x
Var sum:real;
begin
for var i:=1 to 10 do sum:=sum+cos(i);
print ('s =', sum);
end.
64 = 2^6 т.е. занимает 6 бит на символ
6*100 = 600 бит
600/8 = 75 байт
Const N = 10; M = 10;
var arr: array[1..N,1..M] of byte;
i,j,a,b,buff: byte;
begin
for i:=1 to N do begin
for j:=1 to M do begin
read(arr[i,j]);
end;
end;
for j:=1 to M do begin
buff := arr[1,j];
arr[1,j] := arr[10,j];
arr[10,j] := buff;
end;
writeln('==============');
for i:=1 to N do begin
for j:=1 to M do
write(arr[i,j]:3);
writeln;
end;
end.