Program chik;
var s,n:longint;
begin
read(n);
s:=((n+1)*n) div 2;
writeln(s);
end.
Procedure SolveLinear;
var
k, x, b, y: real;
begin
write('k=');
readln(k);
write('x=');
readln(x);
write('b=');
readln(b);
y := k * x + b;
writeln('y=kx+b=', y);
end;
Решение показано в прилагаемом файле.
Ответ: 77
1 задача) 44000*16*60*2=10Мб
а для второй задачи я использовала ту же частоту и дискретизацию.
700Мб=5872025600 бит
t=5872025600/(44000*16*2)=4170 сек= 1час 9.5 мин
2048:8=256 байт=0,25КБайт
16:0,25=64 сек. - для 1 файла.
512*64:8:1024=4