Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
simakovk9
01.05.2023 18:28 •
Информатика
Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз
Показать ответ
Ответ:
beknurr546ozpknp
03.07.2020 09:29
Begin
write('Введите n: ');
var n := ReadInteger;
var c := 0;
for var i:=1 to n do
begin
write ('Введите целое число: ');
var x := ReadInteger;
if x mod 2 <> 0 then
c += 1;
end;
writeln('Количество нечетных равно ', c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Анoнuм
26.09.2020 10:03
сор по информатике Укажите верные утверждения. В имени файла могут использоваться русские и латинские прописные и строчные буквы, а так же пробелы.Длина имени файла...
ГюнтерСтингерсон
05.02.2021 00:18
Область приминения современной компьютера многообразны дайте оценку каждому из перечисленных компьютеров...
katyasasha1415
07.06.2022 08:00
с информатикой По данным, расположенным в таблице, запишите: 1) имя каталога (папки); 2) полный адрес файла; 3) название файла; 4) расширение файла; 5) имя файла;...
Игорь12463
25.03.2020 10:21
с информатикой (Вариант 1)Составить математическую модель, таблицу идентификаторов и алгоритм для следующих задач ( как показано в образце выше с информатикой (Вариант...
edbaldin2017
07.09.2021 20:30
Шар массой 308 г сталкивается со вторым шаром неизвестной массы. Ускорения, полученные шарами при ударе, равны соответственно 0,3 м/с² и 0,8 м/с². С точностью до грамма...
vipaldybaeva
27.09.2021 09:58
Яке символічне значення має образ зозулі у пісні Ой у степу криниченька...
vvvtalik3
24.07.2022 22:31
В Журнале Юный конструктор есть чертеж для сбора небольшой коробки, изображеный на рисунке. Верхний прямоугольгтк-крышка коробки, нижний -дно коробки, остальные четыре...
lizasolnce2004
06.10.2022 18:00
Дана экспоненциальная запись числа. Восстанови число. (Впиши ответ без пробелов и знаков препинания.) Экспоненциальная нормализованная запись числа: 0,31×10 сверху...
prosto5297
20.07.2021 13:42
В) шығармашылық еркіндігі h) жеке меншік иесі болу құқығы і) денсаулығын сақтау j) жұмыссыздықтан әлеуметтік қорғалу k) Қазақстан Республикасының Конституциясын және...
aliyashachkasa
21.04.2020 19:20
167. Діагональ BD квадрата ABCD дорівнює 5 см. Яка довжи- на діагоналі АС? Чому дорівнюють кути трикутника АОВ, де 0 — точка перетину діагоналей квадрата? 8 класс...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
write('Введите n: ');
var n := ReadInteger;
var c := 0;
for var i:=1 to n do
begin
write ('Введите целое число: ');
var x := ReadInteger;
if x mod 2 <> 0 then
c += 1;
end;
writeln('Количество нечетных равно ', c);
end.