Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
пир14
29.11.2021 10:27 •
Информатика
Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100
Показать ответ
Ответ:
yadlos38
10.07.2020 07:26
Var
i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 2<>0) then
sum:=sum+i;
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ArtemkaCrash
17.11.2022 16:59
Синфой. pascalabc на вход программе два целых числа m и n, по модулю не превосходящие 10^6. если m делится на n или n делится на m, то требуется вывести 1, в противном...
вадимм2
04.01.2022 10:50
Мальчик коля хорошо считал, поэтому для составления пароля он использовал числа армстронга. ( натуральное десятичное n-значное число называется число армстронгa, если...
vlada410
04.01.2022 10:50
Сумма вводимых чисел. паскаль abc. 8 класс...
elenskaya3105
25.03.2022 16:02
Кто понимает ИНФОРМАТИКУ , отмечу как лучший ответ, если решите 2 задания...
nikadik2000
04.06.2023 04:57
Создать массив на 50 элементов из случайных чисел от -10 до 10 и проверить сколько в массиве чётных и нечетных чисел. На C#...
виталий124
06.06.2022 13:28
Банку требуется сообщить вкладчику, что его процент дохода по вкладу составит 14,2% в год, а при вкладе 350 000 тенге и выше составит 13,5% в год. Запишите конструкцию...
serejafox23
28.08.2022 02:30
. Если можно, то с объяснением ...
olga638
12.03.2023 12:41
Задание 1 Вычислите значения выражений на языке Python:1) а = = b – 6,4 (b+8) +ь) a –2) а = = a*b – 2ab (a + b)За – 2ab+b23) q =2а(За — b)4) k = x - 4x(x+y)5) h = |v...
Алижан07
27.03.2021 08:09
Що буде надруковане в результаті виконання фрагменту програми? 2 3 4 4 5 6 4 6 8 3 4 5...
KIMSEOLHYUN
25.02.2021 02:36
Розкрыйте дужки и с вираз 3/4(12-16t)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 2<>0) then
sum:=sum+i;
write(sum);
end.