Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
dima1031
16.05.2022 03:16 •
Информатика
Найти количество нечетных чисел от 1 до n
Ответ:
LB27
05.10.2020 19:33
Var s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
coldon
06.02.2022 09:58
решить задачки! на языке Python....
азербайджанка12
12.07.2021 21:12
Создать список из 10 эл-тов и заполнить его случайными числами (рандом) Найти минимальное/максимальное значения списка и поменять их местами питон...
maricn2102
08.01.2022 00:48
Здравствуйте ответить на во...
карина2153
15.04.2022 08:35
Напишите программу: существует ли треугольник со сторонами а, b, с. Если существует, то какой он - тупоугольный, прямоугольный или остроугольный....
irochkaneznano
30.08.2020 17:53
На які небезпеки може наражатися необережний користувач Інтернету? Чому?...
cvetok31maia
13.06.2022 01:42
Используя цикл while, напишите программу, вычисляющую сумму квадратов чисел от 1 до введенного целого числа n...
asik1602
01.03.2020 02:21
Составьте блок-схему и программу вычисления значения функции...
gangstarvegas3
19.11.2020 09:36
заранее модно без объяснений ответ) ...
ktdgegrbyfk
04.04.2021 08:37
У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 3 (b – неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число на...
амина653
05.12.2022 02:05
У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 2 (b – неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число на...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.