От 50 файлов до 1гигабайта
Таблица истинности. Ответ в последней колонке
Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.
Итого все переведем в 10
100_2 = 4
40_5 = 20
30_8 = 24
10_16 = 16
из них самое большое 24, значит самое большое 30_8
237 * 1024 * 8 = 1941504 бит
1941504 : 128000 = около 15 сек