Войти
Регистрация
Спроси ai-bota
Anonim223332
03.01.2022 00:03
Написать программу решения слудующией : с клавиатуры вводятся целые числа до тех пор, пока не будет введен нуль. подсчитать количество введенных четных чисел. вывести результат
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Valeri050608
21.09.2022 20:57
Объясните , какое слово что делает (в программирование) программа паскаль abc.net : var n,m,head,eye: integer; begin writeln( сколько лет вашему дракону? ); readln(n); head:...
evkapop
21.09.2022 20:57
Какое лишнее слово ) знак,звук ,! б) буква ,число,цифра ,символ...
shapuk
21.09.2022 20:57
Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. например, 1234 - нет; 1224 - да. обязательно должен присутствовать цикл с предусловием...
flash64
04.06.2023 13:35
Скорость передачи данных через adsl-соединение равна 128000 бит/с. передача текстового файла через это соединение заняла 1 минуту. определите, сколько символов содержал...
Bonta
22.08.2021 08:06
Укажите истинные высказыванияРусские буквы в кодовых таблицах КОИ-8 и Windows расположены в лексикографическом порядке.Русские буквы в кодовых таблицах КОИ-8 и Windows имеют...
Gfdsahjk
04.01.2023 06:45
(паскаль) написать программу которая запросит ввести с клавиатуры 3 числа и выведит на экран большее из них. если числа равны программа должна вывести надписть, что числа...
goijggv
08.08.2021 13:50
1)дан массив со случайными двузначными числами. найти количество элементов, у которых 1-я цифра больше 2-ой цифры. 2)дан массив со случайными двузначными числами. найти...
sadzim
17.06.2020 04:05
Сколько байтов в предложении я изучаю информатику!...
blablabla43
01.05.2021 03:22
Определите существует ли треугольник со сторонами а, b, c...
Yourmom228black
01.05.2021 03:22
Введите с клавиатуры значение возраста а. выведите на экран следующие сообщение: вы-ребёнок - если а 6; вы-студент - если 17 вам пора-работать - если а 25...
Ответ:
Lolololololololol4
17.04.2020 03:00
Var
x, k: integer;
begin
k:=0;
repeat
readln(x);
if x mod 2 = 0 then
inc(k);
until x=0;
writeln(k);
end.
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота