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

Составьте программу следующую сумму: s=1+(1/2)+(1/3)++(1/50)

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

↓

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

kloodinvulf3451

21.10.2022 00:29

Рассчитать значение y определив и использовав необходимую функцию y=1+sin1^3+3+sin3^3+5+sin5^5...

arinasuykova

01.05.2022 00:23

Назовите двоично-кодированные системы, цифры которых кодируются всеми комбинация и данного количества двоичных разрядов ...

molonchik

11.04.2023 06:07

Определение вида треугольника (прямоугольный) по трем сторонам p.s. нужно составить алгоритм...

smelinkova

08.10.2020 20:27

Запишите через пробел значения элементов массива, сформированного следующим образом:for i:=1 to 7 do a[ i ]:= i - 3;...

Kamillka005

27.11.2022 17:42

1)Место, где мы можем рисовать в окне графического редактора Paint, называется 1)рабочей областью2)инструментом3)строкой состояния4)кнопкой меню2)Вставьте пропущенное слово. Недостатком...

MFINN23

09.06.2023 14:25

Процесс выполнения операторов присваивания: b:=9;m:=111;z:=b∗m При выполнении оператора b:=9 в ячейку оперативной памяти компьютера с именем b заносится значение ; при выполнении...

gulnar1964

09.12.2020 06:39

Расшифруйте 10000110010 10001000001 10000110101 00100000 10001000101 10000111110 10001000000 10000111110 10001001000 10000111110 00111111 00100000...

Sanya3110

18.08.2021 15:52

2 схемы:1) А или НЕ В2) НЕ А и НЕ В...

romankulikov20

12.05.2021 21:25

Запиши выражение h+dp в виде пригодном для использования в программе: h+dp (h+d)÷p (h+d)/p все ответы верные...

umida9501

30.01.2022 12:07

Как называется ситуация, при которой выполнение цикла никогда не заканчивается?...

Ответ:

kater7829

05.10.2020 08:47

Var s,i: real;
begin
readln(a);
s:=0;
for i:=1 to 50 do begin
s:=s+(1/i);
end;
write(s);
end.

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

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

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