Решение на питоне. Корректно работает, когда количество чисел больше или равно 2.
Var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.
Переводим Кбайт в Бит
Килобайты в байты, байты в биты
3000*1024=3072000 байт
3072000*8=24576000 бит
5 минут = 60*5=300 сек
24576000/300=81920 бит/с