Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
dotafign9
05.03.2020 16:52 •
Информатика
Циклы в языке программирования pascal дано n целых чисел. сколько из них являются нечётными?
Показать ответ
Ответ:
scfsdfddPenis
09.09.2020 06:37
Var
A,n,k:integer;
Begin
Write('n = ');ReadLn(n);
Write('Введите целые числа(',n,' шт.): ');
k:=0;
For n:= 1 to n do
Begin
Read(A);
if A mod 2 = 0 then k:=k+1
End;
WriteLn('Кол-во чётных чисел: ',k)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Сергей0081
10.09.2020 22:27
Переведите из Python в Pascal: a = int(input()) b = int(input()) s = 0 for i in range(a, b + 1): if i % 2 == 0: s += i else: s -= i print(s)...
alinkaivankiv
25.03.2023 12:14
7. Ввести послідовність з трьох чисел і підрахувати добуток тих із них, які кратні 3( зробити діаграмою)...
Twister04
25.11.2020 22:21
В каких случаях разварачивается беспроводное подключение Wi-fi? В чём преимущество сети WiMax перед Wi-fi?...
luhxor
22.11.2022 16:05
Postulat-Aksioma-Teorema-Natija ni shakllantiring.shunda qanaqa bòladi ...
alekshaino
21.05.2022 17:22
Что вы знаете об основной программе для компьютера?...
6473089
06.03.2020 09:06
Создать дробный калькулятор в Excel!...
neznakomka1408
27.12.2020 05:27
По схеме на рисунке составте соответствующие логические выражение и найти его значение при всех возможных случаях: ...
Løæålø
23.02.2021 22:38
Изучи предложенный сценарий и выбери подходящий спрайт. ΦΘΗДействияУтренний город1. Идет в школу-2 Говорит «Старт!»3. Занимается спортом.Спортивная площадка4 Считает забитые...
lcdnek198
06.11.2021 22:43
В чем сходство между старыми и новыми компьютерами?...
Morozob
16.02.2022 15:10
Перевести из 10 системы счисления в 16 системы счислениячисла: 237, 1974,2020, 7030, 499(фото, это пример как должно выглядеть)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,n,k:integer;
Begin
Write('n = ');ReadLn(n);
Write('Введите целые числа(',n,' шт.): ');
k:=0;
For n:= 1 to n do
Begin
Read(A);
if A mod 2 = 0 then k:=k+1
End;
WriteLn('Кол-во чётных чисел: ',k)
End.