1. Информатика
  2. Написать программу решения

Написать программу решения слудующией : с клавиатуры вводятся целые числа до тех пор, пока не будет введен нуль. подсчитать количество введенных четных чисел. вывести результат

Vikzza Vikzza    3   18.07.2019 19:00    2

Ответы
myrrr14 myrrr14  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
серья192837465 серья192837465  23.01.2021 02:10
Сканируется цветное несжатое изображение размером 12,5х20 см2. Разрешающая сканера – 1200х1200 dpi, глубина цвета – 4 байта.Какой информационный объём в Мбайтах будет...
dima200756 dima200756  09.03.2021 07:12
Прочитайте условие задачи. Напишите программный код с использованием оператора выбора switch… case. Дано целое число n в диапазоне 1-7. Вывести строку – цвет радуги,...
Холзи14 Холзи14  09.03.2021 07:11
«5»: Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16, … Пример: 1: 1 1 2: 4 8 4: 16 64 ... 46: 2116 97336 На языке программирования...
katerinadrobot katerinadrobot  09.03.2021 07:11
Рост ребенка на начало года R см. за месяц он подрастает на 2%. Через сколько месяцев рост ребенка превысит T см...
annuwka1 annuwka1  09.03.2021 07:09
Сопоставьте типы алгоритмов ветвления в процессе программирования в зависимости от того, как решается проблема. Неполная форма алгоритма If  условие  then «операторы»Полная...
nadyarn nadyarn  09.03.2021 07:07
СОР 4.Установи соответствия между оператором присваивания и переменной АХ=У=А=516Х,У=2,8А=Х+У5Х=У=7А=У+Х10Х,У=4.2А=Х**У14​...
диана128 диана128  09.03.2021 07:07
1.Если абитуриент набирает не менее то это отличный результат, от 65 до 85 — хороший результат, ниже – надо постараться.Запишите конструкцию IF для обработки условия...
Лёха12339 Лёха12339  01.02.2022 20:02
§ 3.1-3.2 выписать в тетрадь основные определения, понятия и выводы §3.1-формирование изображения на мониторе §3.1.1-пространственное разрешение монитора §3.1.2-компютерное...
ahmetovalim ahmetovalim  01.02.2022 20:14
= (В3 + С3) * (В4 + С4) Какой ответ я не могу найти решити у меня контрольные...
nadir1234 nadir1234  03.09.2020 16:18
Декодувати Галія Юлія Цезаря​...

Популярные вопросы