1) узнаем скорость соединения
1,25Кбайт=1,25*1024байт=1280байт
1280/128=10 байт\с
2) узнаем время
250\10=25 с
Ответ 25 секунд
Даже не знаю) очень сложно для меня
Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
<span><span>End;
<em>Пример программы с использованием данной функции:</em>
</span>Program Example;
Var a, b: Integer;
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
End;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('НОД: ', NOD(a, b));
ReadLn;
<span>End.</span></span>
Д-синий,е-красный,л-синий,о-красный