tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Надо введите n чисел(n предварительно
Надо введите n чисел(n предварительно вводится с клавиатуры). выведите количество четных.
даsha3
3 26.08.2019 23:00
0
Ответы
indira227
05.10.2020 21:45
Var
n, i, count, a: integer;
begin
write('Введите N: ');
readln(n);
count := 0;
for i := 1 to n do
begin
readln(a);
if a mod 2 = 0 then
count := count + 1;
end;
writeln('Кол-во чётных = ', count);
end.
ПОКАЗАТЬ ОТВЕТЫ
шота1
05.10.2020 21:45
For 1 To N
If var mod 2 = 0 Then
K = K + 1
End if
Next N
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
220505b
30.07.2019 14:40
Составить программу поиска элемента в одновимирному массиве ! турбо паскаль надо напишите код...
ul8a
30.07.2019 14:40
Из n введенных чисел найти сумму квадратов положительных чисел произведения отрицательных и подсчитать нулевые...
соня1571
30.07.2019 14:40
Итоговый тест к главе 3 текстовая информация и компьютер ( интерактивный )...
оксана726
04.10.2019 16:30
Найдите сумму всех целых чисел, больших -7, но меньших 8....
098марина080
04.10.2019 16:30
1.что не является характеристикой процессора 1)количевство ядер 2)разрядность 3)частота 4)размер. 2.какой группы клавиш нет на клавиатуре. 1)системных 2) алфавитно-цифровых 3)редактирование...
bengamin1993
04.10.2019 16:30
Что больше 100 кб 100 бит 100 мб 100 гб?...
Hikary134
04.10.2019 16:30
Абзацем текстовом процессоре является? подскажите...
валя20063
04.10.2019 16:30
Пользователь вводит пятизначное число,необходимо составить обратное число,заменив четные значения разрядов на нечетные и наоборот паскаль...
ridvanmemetov41
23.03.2021 10:19
ЭТО PYTHON Рассмотрим код программы которая определяет простое число или нет и выводит на экран сообщение. (Простое число-это число которое делится только на себя и на один). Исправь...
ustinlox
10.09.2019 23:30
262: 8 в столбик пример по информатически надо решить...
Популярные вопросы
Staying healthyMatch the phrases to their detentions...
3
Чи потрібні топоізомерази і гелікази в бактеріальній клітині днк якої має вигляд...
3
Назвіть велике зібрання творів Т. Шевченка....
1
Дан двумерный массив А из целых чисел. В массиве 5 строк и 4 столбца. Опишите...
1
В урожайный год фермеру удалось собрать 18 ц/га, а в не урожайный только 8ц/га....
2
Основне життєве кредо Герасима Калитки –„Гроші – всьому голова”. А чи згодні...
2
Помагите по русскому тест 1. В каком из предложений используется прямая речь?...
1
Закінчити рівняння реакцій назвати продукти та визначити тип хімічних реакцій!...
3
Как можно назвать жителей Ашнаса?...
3
Что ускорило завоевание Южного Казахстана и продвижение России в Центральную...
1
n, i, count, a: integer;
begin
write('Введите N: ');
readln(n);
count := 0;
for i := 1 to n do
begin
readln(a);
if a mod 2 = 0 then
count := count + 1;
end;
writeln('Кол-во чётных = ', count);
end.
If var mod 2 = 0 Then
K = K + 1
End if
Next N