Вводить с клавиатуры числа и посчитать количество четных чисел до нуля.
Создать программу используя Until и Repeat
Ответы
Ответ дал:
0
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.
Begin
k:=-1;
Repeat
Read(A);
if A mod 2 = 0 then k:=k+1;
Until A=0;
WriteLn('k = ',k)
End.
Ответ дал:
0
А почему k:=-1, а не 0 например?
Ответ дал:
0
Спасибо огромнейшее!
Похожие вопросы
2 года назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад