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

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

Ответ:

Волкова24

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 оценок)

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

Mariyam005

22.01.2021 11:08

Разработайте алгоритм блок-схем для решения вычислить длину окружности заданного радиуса r...

annfeed17082005

30.05.2020 02:44

По програмированию)) в паскале написать программу, выполняющую поиск максимальных элементов в каждой строке заданной матрицы....

Boss21888

30.05.2020 02:44

Какие программы называют прикладными...

plalallalalalal

23.06.2020 18:30

.(Вазбуке морзе для кодирования символов используются только точки и тире. сколько различных символов можно закодировать, использую код морзе длинной не менее 4 и...

mogilko88

17.11.2020 23:44

.(Примеры числовой, текстовой, графической, звуковой и видеоинформации.)....

Mmmmmmamba

15.03.2021 05:32

Валфавите языка планеты триумват всего три символа-0, 1 и 2. каждое слово состоит из трёх символов. какое максимальное количество слов возможно в этом языке....

lvcenkoirina

14.02.2023 13:19

Пользователь вводит расстояние выраженное в милях нужно перевести это расстояние в км(1 миля=1,6км)...

NaraDarkTheHelp

14.02.2023 13:19

Алгоритмы с командой если то-иначе первое: заголовок: 1. начало 2. оденься 3. если то дома кто-нибудь остается 4. 5. выйди из квартиры иначе 7. выйди из квартиры 8....

Саша555111

22.05.2022 03:38

Кому и как удалось разгадать египетские иероглифы...

KKK11576

22.05.2022 03:38

Дано целое число n больше 1, а также первый член а и разность d арифметической прогрессии сформировать и вывести массив размером n содержащих n первых членов данной...

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

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