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

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

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

Ответ:

misha0problemy

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

Ответ:

FoxyDi

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

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

qqvikaglazynova

18.02.2022 15:50

Пробный экзамен по информатики и икт, проверить. для какого из указанных значений числа х ложно выражение: (х меньше 2) или не (х меньше 3) 1)1 2)2 3)3 4)4...

Мур214

18.02.2022 15:50

Укажите наименьшее пятизначное число x, при вводе которого алгоритм печатает 26391. паскаль: var x, y, a, b: integer; begin readln(x); a: =0; b: =0; y: =1; while x 0 do begin if...

43446764949

16.04.2021 18:18

Объем страницы видеопамяти -125 кбайт. монитор работает с 16 цветной палитрой. какова разрешающая экрана?...

о23072005

14.05.2022 17:15

Некоторое число записано в системе счисления с основанием q, это же число, записанное в системе счисления , выглядит как 100010001, а в системе счисления это же число выглядит как...

MishaBor

15.04.2022 14:31

Вмассиве из 20 целых чисел найти наименьший элемент и поменять местами первым элементом. с объяснениями!...

Sunnnygirl289

22.04.2020 06:53

1. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; if a 5 then a : = 5; 2. определите значение переменной «a» после выполнения фрагмента программы:...

valerijamarkov

15.11.2022 23:02

На уроці вчителька викликала ганнусю і запропонувала обчислити значення виразу,,записаного на дощці (2+3)*4...

OlegNovikov212

27.04.2023 02:05

♥♥♥♥ дан массив из 20 произвольных элементов, каждый из которых не больше 100. найдите максимальный элемент кратный 6....

EgorKolomytsev

27.04.2023 02:05

Что означает латинское слово «corruption»?...

anatoy

27.04.2023 02:05

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

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

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