Question

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

Answer 1

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

Answer 2

СПС )

Answer 3

не за что!

Answer 4

))