Question

Помогите сделать задачу под цифрой 4.1

Answer 1

var 
      a, i: real;

begin
    read(a);
    i := 1;
    while ((1 / i) > a) do
    begin
      write('1/',i,' ');
      i := i + 1;
    end;
end.

Пример работы программы:
0.05
1/1 1/2 1/3 1/4 1/5 1/6 1/7 1/8 1/9 1/10 1/11 1/12 1/13 1/14 1/15 1/16 1/17 1/18 1/19