Код:
var
s, z1, z2: integer;
p: real;
begin
// вводим s, p
z2:=trunc(s / (1 + p));
z1:=s - z2;
if Abs(z1 / z2 - p) > Abs((z1 - 1) / (z2 + 1) - p) then
begin
inc(z2);
dec(z1);
end;
// вывод z1, z2
end.
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
|