Прогеры - как в делфи вып. операцию? ( чит. подроб. ) +DD

и не стыдно такие вещи спрашивать? :))) Вон девацка и то знает :)

var
  r,a,b: integer;
begin
  {если числитель=0, ничего не делаем}
  if num<>0 then begin
    a := abs(num);
    b := denom;
    r := a-b*(a div b);
    while r <> 0 do begin
      a := b;
      b := r;
      r := a-b*(a div b);
    end;
    {НОД сейчас в b}
    if b<>1 then begin
      num := num div b;
      denom := denom div b;
    end;
  end;
end;

Красная кнопка в правом верхнем углу вопроса для тебя!

Kukish

а в php не годиццо?

<?php
$a = 15;
$b = 295;

echo "Tipa drob: $a/$b\n";

$c = $a<$b ? $a : $b;

while ($c>1) {
  if ($a/$c == floor($a/$c) && $b/$c == floor($b/$c)) {
    $a = $a / $c;
    $b = $b / $c;
    $c = $a<$b ? $a : $b;
  } else $c --;
}

echo "Gotovo:  $a/$b\n";
?>