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


Malika274
31.12.2022 10:36

Используя цикл с условием составить программу для вычисления суммы чисел обратных целым из отрезка [-2;12]
Pascal ABC
Желательно как можно быстрее

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
hatira801
hatira801
20.04.2021 00:29
Составить таблицу истинности для высказываний 1. Если вы будете учиться, то не получите двоек и получите знания. 2. Если идёт дождь, то Яна не идёт гулять и смотрит мультики....
dasha45da
dasha45da
15.01.2020 17:56
Построить таблицу логической функции; определить, является ли она тождественно истинной (тождественно ложной) и записать соответствующий вывод: F6 = B •(-А+В)...
ПитерДина
ПитерДина
18.01.2021 14:13
Пронумеруй команди алгоритму відкриття в tux paint потрібного малюнку...
rope22
rope22
18.01.2021 14:13
Каждое из логических выражений f и g содержит 7 переменных. в таблицах истинности выражений f и g есть ровно 7 одинаковых строк,причем ровно 6 из них в столбце значений стоит 0. сколько...
kingsambraking6
kingsambraking6
11.09.2020 00:48
Какие для этого нужны команды в скретче...
seminalydmila
seminalydmila
11.12.2022 17:14
Что выйдет на экране вреультате Выполненияa = 1b = 2print(a)print(a + b)print( сумма = , a + b)13сумма= 311+2сумма= 313суммаг, 3​...
ULYA1111111
ULYA1111111
24.10.2022 14:17
⦁ Где можно применить движение по квадрату? ⦁ Какие геометрические фигуры ты знаешь? ⦁ Чем полезен режим «Включить на количество градусов»?...
яна1768
яна1768
17.09.2022 11:28
Изучив предложенные поля и положения робота, определи цвет поля, на котором окажется робот после выполнения программного кода. 2 3 О- робот, одно поле равно одному обороту колес робота....
isaevshamil0535
isaevshamil0535
04.05.2023 13:43
Декодируй (расшифруй) слово ЧСНФХУСХ, закодированное с шифра Цезаря со сдвигом равным 3....
klubnika1985
klubnika1985
19.06.2021 05:53
В наборе 16 разноцветных брусков пластилина. Какое количество информации содержит сообщение о том, что для лепки был взят синий брусок пластилина?...
Ответ:
nasyatkachenko8
17.08.2020 16:54

var

 sum:real;

begin

 for var i := -2 to 12 do

   if (i <> 0) then

     sum := sum + (1/i);

 write(sum);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота