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


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

Ты хоть понял что написал ?

Приведи пример какая дробь является не сократимой, а какая сократимой, кстатит где-то я видел уже такю тему .. Найду, закрою.

Сделай цикл по знаменателю, от 1 до 15, по i
Внутренний цикл по числителю, от 1 до i.
Делай дробь и сравнивай ее со всеми, которые уже нашел. Если она равно одной из тех, что уже есть - отбросить ее. Если нет - сохранить.
Только без массива тут не обойтись..

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

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

 
  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);

А можно всю программу увидеть???