1 байт = 8 бит
32 Мбит /8 = 4Мбайт
4*60сек*15мин=3600Мбайт=3.51Гбайт
1)trunc(6.9) = 6
2)trunc(6.2) = 6
3)20 div 6 = 3
4) 2 div5 = 0
5) round(6.9) = 7
6) round(6.2) = 6
7)20 mod 6 = 2
8) 2 mod 5 = 2
9) 3*7 div 2 mod 7/3 - trunc (sin(1)) = 1
№4
var n,i:integer; s:real;begins:=52000;n:=2;for i:=1 to n dos:=s*1.01;writeln (s:6:2);end.
Const
n=10;
var
i,j,k,m,buf:integer;
a:array[1..n,1..n]of integer;
begin
for i:=1 to n do
begin
writeln;
for m:=1 to n do
begin
a[i,m]:=random(20);
write(a[i,m]:4);
end;
end;
writeln;
writeln('k,j ?');
readln(k,j);
for m:=1 to n do
begin
buf:=a[k,m];
a[k,m]:=a[j,m];
a[j,m]:=buf;
end;
for i:=1 to n do
begin
writeln;
for m:=1 to n do
write(a[i,m]:4);
end;
end.
Var a,b,c,A1,B1,C1,S:real;
begin
write('введите угол c => ');
readln(c);
write('введите угол b => ');
readln(b);
write('введите сторону A1 => ');
readln(A1);a:=180-(b+c);
writeln('угол а =',a);
B1:=(sin(b)*A1)/sin(a);
writeln('сторона В=',B1);
C1:=sin(c)*A1/sin(a);
writeln('сторона C=',C1);
S:=0.5*B1*C1*sin(a);
writeln('площадь s=',s);
<span>end.</span>