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

+3

Question

Информатика

Соломонида

3 декабря, 21:32

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

+3

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

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

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

+3