Помогите кто-нибудь написать программу ** pascal к задаче!!! Нужно использовать while. Я...

Question

Помогите кто-нибудь написать программу на pascal к задаче!!! Нужно использовать while. Я в девятом классе.

---

Comments

1 < 1 + 1/2

---

но 1 + 1/3 < 1/2 и так дальше

---

как-бы числа уменьшаются

---

Задайте a = 2, и будете бесконечно печатать, пока не надоест.

Answer 1

Var  
   i,                //номер члена последовательности  
   n: integer; //длина последовательности  
   a: double; //заданное число
Begin  
//--------------------------------------Ввод данных----------------------------------------------------
   write('Введите длину последовательности: ');  
   read(n);  
   write('Введите a: ');  
   read(a);
//-----------------------------Вывод последовательности-------------------------------------------
   i:=2;   
   write('Последовательность:  ',1);  
   while i <= n do begin    <br>      write('   ',1+1/i:0:4);           //4 - количество цифр после запятой, если нужна 
                                                  большая точность можно увеличить это число    
      i:=i+1;  
   end;  
   writeln();
//------------------------------Вывод требуемых чисел----------------------------------------------  
   write('Числа меньше а:  ');  
   i:=2;  
   if a > 1 then write(1);  
   while i <= n do begin    <br>      if 1+1/i < a then write('   ',1+1/i:0:4);   //если i-й член последовательности < a, 
                                                                                             то печатаем это число 
      i:=i+1;                 //переходим к следующему числу в последовательности
   end;
End.

Comments

Про длину последовательности в задаче ничего не сказано.

---

Если последовательность не ограничить, то программа будет бесконечно печатать числа.

---

Программа без ограничения последовательности:
var
i, //номер члена последовательности
a: double; //заданное число
Begin
write('Введите a: ');
read(a);write('Числа меньше а: ');
i:=2;
if a > 1 then write(1);
while true do begin
if a > 1+1/i then write(' ',1+1/i:0:8);
i:=i+1;
end;
End.