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

Question

Информатика

Юнонка

22 июня, 08:44

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

+1

Ответы (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