Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ilslim
25.04.2020 12:56 •
Информатика
Составьте программу вычисления суммы: 5+7+9+11+…+101
Ответ:
afdecfd
13.07.2020 21:00
Var
i,sum:Integer;
Begin
for i:=5 to 101 do
begin
if (i mod 2 <> 0) sum:=sum+i;
end;
Writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
larikhambekov
18.02.2021 17:52
Информативный объем статьи до редактирования составляет 135 кбайт. каждая страница содержит 60 строк, в каждой строке по 12 символов. после редактривания статьи её...
Алина1ззз
29.03.2022 04:55
Составьте программу которая подходит х+3 если х больше 0 х2 есле х меньше 0...
ilham11997766
17.08.2022 13:01
Построить таблицы истинностиХотя бы что-то...
лолпа
16.05.2021 04:32
№ 2. Распределите информацию по её виду (по форме представления и по восприятия): схематический чертёж к задаче, письмо маме; экспонат в музее; видеофильм; мультфильм;...
дарья1640
10.09.2020 15:44
(Зх + 512) бітів = 2 Кбайти...
dekok584p08crj
30.11.2020 03:20
Укажите Какая синтаксическая ошибка была допущена в программном коде...
kato99
13.05.2023 13:14
НА ПАСКАЛЕ ИЛИ НА C# Известно, что текст на русском языке зашифрован шифром Цезаря. При этом использован следующий набор букв:А б в г д е ж з и к л м н о п р с т у...
svetlana485
05.07.2020 21:40
Назовите все органы цветкового растения, которые относят к вегетативным. Листья Семена Плоды Корни Цветки Побеги Виберете несколько из 6...
redvellk7
19.11.2020 12:32
Ffbu reutluc это слово перемешаное составить ...
Irishka2k17
03.10.2020 01:30
Какие меры социальной поддержки осуществляет правительство в сложной современной ситуации ,в связи с короновирусом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
i,sum:Integer;
Begin
for i:=5 to 101 do
begin
if (i mod 2 <> 0) sum:=sum+i;
end;
Writeln(sum);
end.