Вводить с клавиатуры числа и посчитать количество четных чисел до нуля.

Создать программу используя Until и Repeat

Question

Данило

18 сентября, 09:45

+2

Ответы (1)

Знаете ответ на вопрос?

Миколай · Answer 1

Var A, k:integer;

Begin

k:=-1;

Repeat

Read (A) ;

if A mod 2 = 0 then k:=k+1;

Until A=0;

WriteLn ('k = ', k)

End.

Вводить с клавиатуры числа и посчитать количество четных чисел до нуля.Создать программу используя Until и Repeat