7*55*70=26950 символов всего.
Если один символ 1 бит,то
56Кбит\с=57344Бит\с
26950/57344=0,5 сек
Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
<span>end.
или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
begin
A[i]:=i*3;
S:=S+A[i];
end;
Writeln('сумма элементов массива= ',s);
<span>end.</span></span>
Например при x=-1 y=0
Program gt;
var x,y:real;
begin
readln(x,y);
if(y<=x)and(y>=-x)and(x*x+y*y<=1)then writeln('YES') else
writeln('NO');
end.
V= 56 Кбит/с=56*2^10 бит/с =7*2^13 бит/с
F= 5 Мбайт = 5*2^23 бит
t =F/v = 5*2^23 : (7*2^13) =5*2^10 / 7 =731,43c=12,2 минуты