Составить программу для сокращения дроби M / N, где M, N-натуральные числа.

[kirito_17]

нужно зделать на делфи, с помощю функции или процедури
зарание спасибо)

[Stilet]

procedure cokra(var m,n:integer);
var i:integer;
begin
 if n<m then i:=n else i:=m;
 while (i>0)and((n mod i)=0)and((m mod i)=0) do dec(i);
 m:=m div i;
 n:=n div i;
end;

Это с потолка, думаю что подвергнусь критике, но попробуй.

[Baburek]

Суть задачи - округлить? У Delphi есть функция Round():

Round(a/b);

Или не пойдет?

[Mad_Cat]

Суть задачи - округлить?

Суть задачи найти НОД

[Baburek]

Сообщение от Mad_Cat

Суть задачи найти НОД

Тьфу, реально чет туплю...:-)