Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
Минимальное основание 10, потому что там "9", а девятка это максимум среди чисел. (0,1,2,3,4,5,6,7,8,9.)
1) Переведем скорость в кб/с. 2 621 440 бит/с=320 кб/с
Файл размером 10 Мб или 10240 Кб будет передаваться 32 секунды
2)Переведем скорость 256 000 бит/с=32 кб/с
10 мин=600 с. Значит наибольший файл будет иметь размер 19200 Кб
3)Не знаю
F - это ответ посчитанный по заданной формуле.