Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Domashka3333
08.07.2021 01:50 •
Информатика
Напишите программу, которая принимает с клавиатуры 15 целых чисел и выводит на экран, сколько из них были четными и сколько нечетными.
Показать ответ
Ответ:
olysenko290
23.07.2020 07:23
Pascal:
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
диана2473
15.06.2022 03:44
1. какие пары объектов не находятся в отношении объект - модель ? а) компьютер - его фотография; б) компьютер - его функциональная схема; в) компьютер - его процессор;...
moroshan77
05.09.2022 20:15
1. какие пары объектов не находятся в отношении объект - модель ? а) компьютер - его фотография; б) компьютер - его функциональная схема; в) компьютер - его процессор;...
yarabar
27.05.2023 23:24
Запишите дополнительный код числа, интерпретируя его как восьмибитовое целое со знаком 81(10); б) -40(10); в) -24(10). Запишите дополнительный код числа, интерпретируя...
Рома555555
18.03.2020 20:23
Что это означает боже writeln (i: 2, i*k: 13: 2)...
kristos24052006
01.11.2021 07:28
Составить алгоритм и написать программу вычисления площади фигуры с использованием условного оператора if по одной из формул: s=п*r ; s=a*b...
вайли15
01.11.2021 07:28
:рассчитать оплату электроэнергии еслт за первые 100 квт клиент платит 2 руб. за 1 квт, за превышение расхода свыше 100 квт в месяц - по 2,5 руб. за каждый квт. № п/п...
Violetta2004w
19.02.2023 01:39
Запишите результат выполнения следующей стандартной процедуры:delete( PRINTPORT , 5, 4);...
EnotGermany
14.04.2022 06:41
Напишите программу, которая получает с клавиатуры два целых числа и находит наибольшее и наименьшее из них. на языке Python...
ЧараДримурр06
02.02.2023 02:32
Примеры в столбик 13915: 23 17238: 34 15257: 73 273150: 45 676800: 18 479120: 53...
sufyanova99
16.12.2020 13:31
Среди пяти монет есть пара фальшивых. известно, что фальшивая монета легче настоящей. какое количество взвешиваний необходимо сделать на весах с двумя чашками без гирь,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program z1;
var i, k, n, ch:integer;
begin
n:=0;
ch:=0;
for i:=1 to 15 do
begin
writeln('Input number:');
readln(k);
if(k mod 2=0) then
ch:=ch+1
else
n:=n+1;
end;
writeln('Нечетных было ', n);
writeln('Четных было ', ch);
end.