@andrey_levushkin

Как найти все простые несократимые дроби, меньшие 1, знаменатели которых не превышают 9?

Как найти все простые несократимые дроби, меньшие 1, знаменатели которых не превышают 9?
дробь задаётся двумя натуральными числами - числитель и знаменатель.
Вроде сделал набросок, но проскакивают такие дроби как 2/4 2/6 3/6 4/6 2/8 4/8 6/8
Как от них избавиться?
var    chisl,znam: integer;
begin
  
  for znam:=2 to 9 do begin
    for chisl:= 1 to znam do 
        if (chisl mod znam <>0) then write (chisl,'/',znam,' ');
      writeln();
      end
    
end.

5cb05a92def52955888642.png
  • Вопрос задан
  • 696 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы