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

Составьте программу в паскале авс 1/1 + 1/2 + 1/3 + 1/4 + + 1/37

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

↓

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

Polina73837739

13.01.2023 19:56

Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел. Входные данные Входная строка содержит 5 целых чисел, разделённых пробелами. Выходные...

89528849556keyz

10.01.2021 13:00

7. Выберите то, что не относится к языку программирования Python a) Readln b) int с) input()d) Writeln е) *** f) string...

rast052

27.12.2020 13:28

Посчитай время которое ты проводишь за компьютером в течение дня учитывая безопасность для здоровья заполни таблицу...

Pitbull2015

21.12.2021 14:38

Написать программу для вывода изображения: 1.Установить размер экрана 800, 600 2.Задний фон закрасить определенным цветом (цвет можно выбрать любой), поэкспериментируйте с цветами...

Тимоха1911

25.04.2021 23:08

Введите имя аккаунта, состоящее как минимум из 3 символов, используя только буквы, цифры и знак «_». ЧТО ЭТО ЗНАЧИТ...

nazarzadorozhny

10.04.2021 05:17

1. Найти сумму четных цифр и произведение нечетных цифр заданного целого числа х 2. Найти количество четных цифр и нечетных цифр заданного целого числа х3. Вывести удвоенное...

halker249Neekolay

02.08.2021 16:02

в ячейке C4 формула =B3/B2. Как она будет выглядеть, если переместить ее в ячейку D4?...

Анкляка

27.06.2021 08:24

Напишите программу, которая выводит на экран N случайных целых чисел и находит их сумму, произведение, среднее арифметическое всех чисел и значение квадратного корня из суммы...

ivanovavlada36

21.06.2020 21:32

1.Ниже приведена таблица, созданная в тестовом процессоре. Запишите алгоритм вставки данной таблицы:1)2)3)...

veterokttty

26.07.2022 22:56

Чему равен результат сложения следующих чисел: 100^2 и 13^8? а) 610 б) 1010 в) 100002 г) 178...

Ответ:

human230385z

07.10.2020 10:11

Program summa;
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.

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

Ответ:

nasi

07.10.2020 10:11

Var i: byte; sum: real;
begin
for i := 1 to 37 do
sum := sum + 1/i;
writeln(sum);
end.

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

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

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