Регистрация
Penb
08.09.2022 18:48
Информатика
Есть ответ 👍

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

134
209
Посмотреть ответы 2

Ответы на вопрос:

arianaforever1
arianaforever1
4,8(66 оценок)
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
ardolg
ardolg
4,4(21 оценок)

1)B

2)D

3)A

4)D

5)C

6)D

7)C

8)C

9)D

10)B.

Популярно: Информатика