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

Question

Информатика

Енюха

14 января, 08:47

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

+2

Ответы (1)

Знаешь ответ?

Аксиньюшка · 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
begin

s:=s+1/n;

Write (n:4);

n:=n+1;

end;

Writeln;

Writeln ('s=', s:0:4);

end.

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