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

Написать в паскале: for s=1+1/2+1/3+1/4+1/5

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

↓

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

Zen201

18.05.2021 00:14

16384бит нужно перевести в байт,а потом в килобайт...

ЕлизабетклассD

16.06.2021 08:51

Вычислите информационный сообщения «Units of information» 431 байт- бит 431 байт— килобайт 187 килобайт — мегабайт 321 мегабайт- гигабайт 3448 бит, 0,431 килобайт 0,187 мегабайт, 0,321...

ololoololoev1

22.04.2021 14:41

7 килобайт нужно перевести в байт...

mashagalushko2

19.11.2020 23:17

Описать создание и редактирование графических и мультимедийных объектов средствами компьютерных презентаций....

Voight

29.02.2020 06:26

Ребята по теме CS:GO Global Offensive. Тут такой во если у тебя прайм, то за повышение ранга на какую цену минимум будут падать скины очень нудна это инфа, кто знает - подскажите...

Aloyna111

10.03.2023 16:13

ответить на во по информатике очень нужно ответить на во по информатике очень нужно >...

Drftdsrx

14.12.2020 19:58

Десятичное число 98 в двоичной системе расписать...

Inalova77

14.12.2020 19:58

Паскаль абс: составить программу нахождения чисел из интервала [n; m], имеющих наибольшее количество делителей( количество делителей определить с подпрограммы)...

Maximus20000

23.09.2021 16:26

Даны два целых числа a и b (a b). вывести в порядке возрастания все целые числа, расположенные между a и b (включая сами числа a и b), а также количество n этих чисел. надо решить...

Мандер

23.09.2021 16:26

Закончить ▪▪ встать с левой положить краем отбиться от прикусить снег на сухим держать камень поперёк себя в как свои в...

Ответ:

danieldsha1234

01.09.2020 06:51

Var
   S:real;
   n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
    S:=S+1/n;
WriteLn('S = ',S);
End.

n = 5
S = 2.28333333333333

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

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

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