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

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

Ответ:

Оператор2288

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

Ответ:

didlok

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

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

Dooolche

17.09.2022 20:45

Переведите число 201 из пятеричной в десятичную систему счисления...

vilrimma

17.09.2022 20:45

Спортсмен за 10 дней пробежал 10 км. какова длина дистанции в первый день если длина дистанции ежедневно увеличивалась на 5%? в паскале...

butera

17.09.2022 20:45

8. выберите все правильные утверждения. в процедуре write для величин вещественного типа можно задавать формат вида a: k: m, где a – переменная или выражение, a) k – общее количество...

msflower05

17.09.2022 20:45

Рассчитать сумму ряда чисел от 1 до10,с while-do,repeat(until). нужно,...

ЛераВ223

19.05.2023 06:26

Дано число x, определить является ли оно положительным(qbasic 7.1)...

katyalychenko

19.05.2023 06:26

Ввод осуществляется с клавиатуры. ввести натуральное n и действительное a. вычислить s=1/a+1/a^2+1/a^4+/a^2n-2...

assimie

12.04.2020 04:33

Напишите программу, которая заполняет массив из n=10 элементов случайными числами в диапазоне [10; 100] и сортирует его по возрастанию последней цифры числа (сначала идут все...

joker1100

12.04.2020 04:33

Вкорзине лежит 128 шаров. все шары разного цвета. сколько информации несёт сообщение о том, что из корзины достали 64 шар....

usenova1993

09.06.2021 02:49

(3-x) (6-x) (9--x) как называется эта функция?...

ааа516

09.06.2021 02:49

Сколько мб составляет сообщение содержащие 3кб...

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

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