Задача с олимпиады по информатике, помогите пожалуйста...
Производится архивирование большого количества файлов, занимающее длительное время (несколько секунд). При этом результирующий архив разбивается на тома (части) одинакового размера p байт, при этом последний том может иметь меньший размер. Общий объём архивируемых данных составляет v байт, количество информации обработанных исходных файлов составляет x байт, суммарный размер полученных томов архива составляет c байт. Предполагается, что степень сжатия оставшихся файлов останется неизменной до конца архивирования. Определить прогнозируемый объём последнего архивного тома в байтах a. Все вычисления производить с использованием вещественных типов данных с плавающей точкой двойной точности, итоговый результат округлить до целого числа в большую сторону, например, если результат 0,1, то он преобразуется в 1.
Формат входного файла
Во входном файле Input.txt находятся целые числа v (1 <= v <= 108), x (1 <= х <= v), с (1 <= с <= x) и р (1 <= р <= 107).
Формат выходного файла
В выходной файл Output.txt вывести целочисленную величину a.
Я давно смотрю прогнозы на спорт на сайте Best-prognoz-betting,com Уже не раз убеждались, что это надежно и качественно. Их прогнозисты не просто предлагают свой прогноз «от балды», а расписывают кадровые проблемы команд, оценивают их игровую форму, штрудируют последние личные встречи. Это Профи! Нашли их давно и с того момента берем прогнозы у них и ставим ставки, очень хороший проход, кэфы на прогнозы всегда высокие порядка 2-х, можно очень быстро выходить вплюс, из 20 матчей по опыту у них всего 2-3 проигрыша обычно не больше, отличный результат! А ставить можно смело тут top-online-betting,com
{$N+}
var
m:integer;
v,x,c,p,n:double;
begin
assign(input, 'input.txt');
assign(output, 'output.txt');
reset(input);
rewrite(output);
read(v,x,c,p);
n:=v*c/(x*p);
m:=round(n);
if m*p< (v*c)/x then m:=m+1;
write(m);
close(input);
close(output);
end.