В последовательности чисел, вводимых с клавиатуры, подсчитать количество четных чисел. Признак завершения ввода: два числа подряд больше 20.
Вопрос помогите написать программу на паскале
- Автор темы ShieldCrazy
- Дата начала
Держите: $ cat more20.pas var n, evens: integer; more20: boolean; begin n := 0; evens := 0; repeat more20 := n > 20; read
; if not odd then inc(evens) until more20 and (n > 20); writeln(evens) end. $ echo 1 2 3 4 21 5 6 21 22 | ./more20 4 Здесь посчитались числа 2, 4, 6, 22.
; if not odd then inc(evens) until more20 and (n > 20); writeln(evens) end. $ echo 1 2 3 4 21 5 6 21 22 | ./more20 4 Здесь посчитались числа 2, 4, 6, 22.