Var s:real; k:integer;
begin
s:=50;
k:=0;
while s<2000 do
begin
k:=k+1;
s:=s+0.1*s;
end;
writeln(k);
end.
Результат:
39
Ответ:2175 кб
Объяснение: За 40 сек. Передается файл размером 1450 КБ, значит надо 1450:40, этим действием мы получим скорость соединения и эту скорость мы умножаем на 60 сёк и получаем 2175 КБ.!
Uses crt;
var i,n:integer;
a:array[1..100] of real;
begin
writeln('Сколько чисел в массиве?');
read(n);
writeln('Введите элементы.');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
a[i]:=abs(a[i]);
end;
for i:=1 to n do
write(a[i],' ');
<span>end.</span>