4.
var r , S : real;
begin
writeln('Введите радиус: ');
readln(r);
S:= pi*r*r;
writeln('Площадь круга: ',S);
end.
10.
var massa, a, b, c : real;
begin
writeln('Введите массы трёх слонов: ');
readln(a,b,c);
massa:=(a+b+c)/3;
writeln('Средняя масса слона: ', massa);
end.
Uses crt;
function f(a,b:real):real;
begin
f:=sqrt(a*a+b*b)
end;
var ab,ac,dc,bd,g,p:real;
begin
clrscr;
writeln('Введите длины строн');
write('ab=');readln(ab);
write('ac=');readln(ac);
write('dc=');readln(dc);
g:=f(ab,ac);
bd:=f(g,dc);
p:=ab+ac+dc+bd;
write('Периметр=',p:0:2);
readln
end.
20 Мбайт=20*2^23 бит=5*2^25 бит
32 кГц =32*1000 Г =2^8 *125 Г
24=3*8=3*2^3
-----------------------------------------------------------------------------
20*2^23/(4*32*1000*24)=5*2^25/(125*3*2^13)=2^12/(25*3)=
=4096/75≈54, 7cекунд≈ 1 минута
ответ: 1 минута