Дано вещественное число а. Напечатать все значения n ,при которых 1+(1/2)+(1/3)+..+(1/n)<a

1

Ответы и объяснения

2014-03-17T12:53:49+04:00
Program fofgogjoj;
var 
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число  a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do 
begin 
s:=s+1/n; 
Write(n:4); 
n:=n+1; 
end;
Writeln;
Writeln('s=',s:0:4);
end.


Не советую печатать число большее 10 xD