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

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

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

↓

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

cat12213113

17.01.2020 11:26

Для повторного сохранения файла с новым именем файла надо выбрать команду...

KIRAERM

17.01.2020 11:26

Сколько бит необходимо для кодирование 16-ти цветного изображения...

Саня1585

17.01.2020 11:26

Вот ответы a) obar.xt b) barr.txt c) bar.txt d) obar.txt...

sukhovilopolina

17.10.2021 23:35

Скорость передачи данных через модемное соединение равна 2мбит/сек.передача текстового файла через соединение заняла 3с.сколько символов содержал переданный текст...

ГЛУПАЯДОМАШКА

12.12.2021 19:38

У4-х девочек было по некоторому количеству конфет. каждая съела по столько конфет, каков её порядковый номер, если это было возможно, в противном случае она съедала...

vika5658

12.12.2021 19:38

1024 мб = ..гб 10 кб ..байт с объяснениями...

alenaizmailova

27.07.2021 13:08

Паскаль! дана строка символов, состоящая из слов. заменить в словах слог ба на ро (например, база - роза ). если таких слов нет, то выдать соответствующее текстовое...

HappyMen11

12.08.2021 09:13

Написать программу сравнивающую два введённых с клавиатуры числа. Результатом должно быть одно из сообщений: первое число больше , или второе число больше , или...

arsenboosss757

28.11.2021 00:16

Люди! у меня вопрос? у меня в компьютере установлен office tab center 2013, я оттуда хотела установить или открыть power point. нажала на него и нажала ок! затем...

jonni0203

18.09.2021 00:09

25 . с чего можно проводить поиск сразу на нескольких поисковых системах?...

Ответ:

Yurianvinokurov

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 Оформи подписку