Найти числитель и знаменатель несократимой правильной дроби

@Andrey82 · Регистрация: 06.04.2012

Студворк — интернет-сервис помощи студентам

Даны натуральные M, N (M>N). Найти числитель и знаменатель несократимой правильной дроби p/q такой, что p/q=m/n

@Krot-buterbrod · 01.05.2012, 18:52

Pascal

var n,m,t,i: integer;
begin
     readln(n,m);
     if n>m then begin
        t:=n; n:=m; m:=t;
     end;
     write(n,'/',m,'=');
     for i:=1 to n do
         if (n mod i=0) and (m mod i=0) then begin
            n:=n div i; m:=m div i;
            i:=1;
         end;
     write(n,'/',m);
end.

@Andrey82 0 / 0 / 0 Регистрация: 06.04.2012 Сообщений: 51
		1
	Найти числитель и знаменатель несократимой правильной дроби 01.05.2012, 18:30. Показов 3629. Ответов 1 Метки нет (Все метки) Даны натуральные M, N (M>N). Найти числитель и знаменатель несократимой правильной дроби p/q такой, что p/q=m/n 0

	01.05.2012, 18:52

Опции темы

Найти числитель и знаменатель несократимой правильной дроби

Решение