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

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

Показать ответ

Ответ:

емдетей

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

Ответ:

dashsharapova2

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

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

мопс73

14.09.2020 06:01

Составить программу, которая определяет, принадлежит ли заданное число отрезку [0; 2]. на языке pascal, pascalabc.net...

Паитаоаипа

29.11.2022 00:28

20 напишите программу, которая в последовательности натуральных чисел определяет минималь- ное чётное число. программа получает на вход количество чисел в последовательности,...

Петонова03

27.12.2022 08:25

Какую программу нужно выбрать для обработки текстовой информации 1)ms excel 2)ms word 3)paint...

Anif

26.12.2021 05:02

Апрограмме “: =“обозначает оператор присваивание, знаки + - * / соответственно операции сложения, вычитания, умножения и деления . правила выполнения операций и порядок...

Сhubby

08.10.2022 12:12

Выполни алгоритм и раскрась хамелеонов...

calimova123

21.05.2021 03:44

Какие целые числа заключены между числами: -17 восьмых и 5 целых 13 192-ых...

Bihan231

21.05.2021 03:44

Вкакой паре глаголов неопределённая форма найдена неверно? увидит-увидеть смотрит-смотреть прочитает-читать проспит-проспать...

даниил1агапов

21.05.2021 03:44

Нужно составить 2 предложения про мороженое...

donamigo2012

21.05.2021 03:44

Камінь масою 1.5 кг впав з деякої висоти за 4секунди.визначити кінетичну і потенціальну нергію каменя в середній точці шляху.опором повітря знехтувати....

EkaterinaMironovaa

21.05.2021 03:44

Бабки-ёжки выбирали на лесном базаре новые мётлы. всего на базаре было выставлено для продажи 356 мётел: 3/5 всех мётел были берёзовые,а остальные осиновые и ольховые,поровну...

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

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