Войти Регистрация Спроси ai-bota

S=1+1/2+1/3+1/4++1/n pascal. решить с циклом while

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

EHOT229

05.03.2021 06:01

1. Яке ім я в цій програмі має змінна-лічильник? Яких значень вона набуває? 2. Якщо команду print(i) замінити командою print(i ), які значення виведе програма? 3. З яких значень...

SlowMoe

20.07.2021 10:15

Заполнить массив 10 числами вычислить сумму элементов массив имеющие четный индекс...

avazjon2296

13.05.2022 06:31

Пользователь работал с каталогом 2011. Сначала он поднялся на один уровень вверх, затем ещё раз поднялся на один уровень вверх, потом спустился на один уровень вниз. В результате...

Vanomasssss

03.03.2020 17:22

Предположим, что нужно организовать современными средствами работу двух и более человек над документом. Установите соответствие между элементами этой схемы. К каждой позиции,...

mayoll

17.11.2022 08:19

На каких режимах лучше пользоваться при фотосъѐмке в ночное время?...

Arsen2045

27.04.2021 11:58

Решите тест как можно скорее. За решение от...

Lolka200Fantazii0

12.05.2021 07:32

Какие выполняет прикладное программное обеспечение компьютера...

askardaurenuly

25.07.2022 21:57

2. Что будет выведено на экран в результате работы программы. ...

ayunatushentso

20.02.2022 10:22

Структуры одноцепочечной нейроннной сети...

ANNANESMN

30.10.2021 13:54

В два сосуда, между которыми находится кран (он закрыт), налита вода. Выясни, в каком сосуде давление воды на дно больше и на сколько, если h1=36 см, а h2=9 см. (Принять g =...

Ответ:

borkunovanasta

08.10.2020 11:36

Program abc;

var
n, i: integer;
s: real;

begin
write('Введите n: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('s= ', s);
end.

S=1+1/2+1/3+1/4++1/n pascal. решить с циклом while

S=1+1/2+1/3+1/4++1/n pascal. решить с циклом while

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку