Показать сообщение отдельно
  #2  
Старый 31.10.2009, 18:08
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Код:
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. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием