Вывести в порядке возрастания все обыкновенные несократимые дроби

@King_Of_Kings · Регистрация: 20.03.2010

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

91. Вывести в порядке возрастания все обыкновенные несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 15. Массив при этом заводить не следует.

@Puporev · 17.06.2010, 08:02

Pascal

uses crt;
function Nod(m,n:byte):byte;
begin
if m mod n=0 then Nod:=n
else Nod:=Nod(n mod m,m);
end;
var i,j:byte;
begin
clrscr;
for i:=2 to 15 do
for j:=1 to i-1 do
if Nod(i,j)=1 then
write(j:5,'/',i:2);
readln
end.

@King_Of_Kings 1 / 1 / 0 Регистрация: 20.03.2010 Сообщений: 22
		1
	Вывести в порядке возрастания все обыкновенные несократимые дроби 17.06.2010, 03:44. Показов 7360. Ответов 1 Метки нет (Все метки) 91. Вывести в порядке возрастания все обыкновенные несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 15. Массив при этом заводить не следует. 0

	17.06.2010, 08:02

Вывести в порядке возрастания все обыкновенные несократимые дроби

Решение