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

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

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

Ответ:

gc121

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

Ответ:

ainura8326

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

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

fhtyf

12.02.2021 09:18

Перевести в двоичную ,десятичную и шестнадцатеричную числа 333,777,1024...

krasavitsaasem

08.03.2021 05:06

Какие функции выполняет сервер локальной сети...

Malika274

12.11.2022 20:11

Написать программу вывода на экран натуральных чисел от 1 до n в обратном порядке....

Amdrek

12.11.2022 20:11

Написать программу вычесления для заданного натурального числа n: s=1+√2+√3++√n...

QFARRO

23.10.2021 00:33

Какую глубину цвета имеет растровое изображение размером 100х200 пикселей, если объём его файла в формате bmp составляет 60 000 байт...

соня1583

26.05.2023 20:10

Что делает программа? s = input() b = list(s) f = min(b) print(f)...

yagunovaliza

30.09.2020 04:41

Решите : для кодирования одного пикселя используется 4 байта фотографию размером 1024*2048 пикселей сохранили в виде несжатого файла определите размер получившегося файла в мегабайтах....

Вероника5577

27.08.2021 02:38

1. Какова роль процедур и функций в программировании?2. Как записывается общий вид процедуры?3. Как записывается общий вид функции?...

Illia1Z

22.03.2021 13:56

Поместиться ли два квадрата со сторонами а см,в прямоугольнике длина которого с см,ширина d см,известно что c d. паскаль!...

minpro

06.02.2022 01:49

Составьте формулы: оксид мышьяка(v),оксид свинца(iv)...

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

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