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

Question

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

Comments

паскаль?

---

lf

---

да

Answer 1

Program fofgogjoj;
var 
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число  a');
Read(a);
until a>1;
s:=0;
n:=1;
while sbegin 
s:=s+1/n; 
Write(n:4); 
n:=n+1; 
end;
Writeln;
Writeln('s=',s:0:4);
end.


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

Comments

СПС )

---

не за что!

---

))