обыкновенные несократимые дроби Опции

[zetsokol]

Помогите решить задачку


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

Сообщение отредактировано: zetsokol - 11.01.2006 14:18

[klem4]

Только без массива тут не обойтись..

Ну почемуже, например можно юзать файл

[Lapp]

Ну почемуже, например можно юзать файл

нет, ну можно , конечно... Давай проверять на сократимость.
Типа так

 
  y:=false;
  for k:=2 to j do y:=y or ((i div k*k)=i)and(j div k*k));
  if not y then WriteLn(j,'/',i);