Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Mia871
14.12.2020 08:06 •
Информатика
Написать программу на языке паскаль: вычислить сумму 1/2 + 1/4 + 1/6 + 1/2n
Показать ответ
Ответ:
Clook2023
01.10.2020 13:43
Program h2;
const
n=20;
var i:integer;
s:real;
begin
for i:=2 to n do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Anhelodek
16.05.2022 11:48
Очень надо! Только правильно отвечайте ...
KONERtm
06.01.2020 22:46
1. Дополни предложения, в окошки напиши (скопируй) недостающие слова: (шрифт, алфавитном порядке, специальные окошки, кнопки изменения стиля, pt, дюйма, названия шрифтов,...
gagag590
27.12.2022 13:53
Яких значень має набувати лічильник циклу...
tomakor
14.05.2022 04:44
Всем здравствуйте решить задачу по информатике , что на картинке....
EvilMorty
14.06.2021 17:52
Надо сделать а,г,е На картинке...
333050708
27.05.2022 10:03
, и таблицу можно, очень надо...
yla00458
04.08.2022 12:48
Кто какую может! 1. самолет 1/3 своего пути пролетел за 50 мин, а оставшиеся 1800 км за 2 часа 10 мин. определите среднюю горизонтальную скорость самолета. 2. тело,...
zakir2007
04.08.2022 12:48
Какую фигуру образуют точки, если их абсциссы принадлежат множеству (-2; 2), а ординаты - множеству [-3; 3]?...
Zoomf
04.08.2022 12:48
Сумма двух сторон треугольника 60 см, третья сторона на 16 см меньше суммы его сторон,найдите периметр треугольника....
Ksushlalka
04.08.2022 12:48
Из справочника эпитетов в учебнике выпиши определения которые характеризуют твоё настроение в данный момент...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const
n=20;
var i:integer;
s:real;
begin
for i:=2 to n do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.