16 бит=2 байта....................
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
Сначала нужно найти отношения размера файла за переданное время и приравнять для двух случаев. Скорость передачи не изменна, поэтому, размер файла зависит только от времени.
10Мб/130с=х/65с
х=650/130
х=5