Помогите пожалуйста с программой на паскале.

[svobodys]

Дано действительное число А. Найти среди чисел 1, 1+1/2, 1+1/2+1/3, ....
первое, большее А.

[Arigato]

Нам Ваше голое условие не нужно, и никто не будет тут ничего решать за Вас. Выкладывайте Ваше решение задачи, укажем на ошибки.

[svobodys]

Да что-то всю голову уже сломал. мне хотя бы идею как решать.

[alex_fcsm]

Попробуй так:
1. Определяешь функцию, которая будет выдавать очередную сумму ряда(1,1+1/2,1+1/2+1/3...- ряд)
2. Сравниваешь эту сумму с очередным значением функции(например в цикле repeat)
3. При необходимости выводишь

[svobodys]

Спасиба, только чота совсем ничо не получается...............

[alex_fcsm]

Сообщение от svobodys

Спасиба, только чота совсем ничо не получается...............

uses crt;

var x:real;
    i:integer;
    flag:boolean;

function Fun(j:integer):real;
var i:integer;
    r:real;
begin
 r:=0;
 for i:=1 to j do
   r:=r+1/i;
 Fun:=r;
end;

begin
clrscr;
flag:=false;
writeln('INPUT A');
readln(x);
i:=2;
if x<1 then writeln('1')
   else repeat
        if x<Fun(i) then begin
                           writeln(Fun(i));
                           flag:=true;
                          end
           else inc(i);
        until flag;
end.