Question

Язык паскаль.Вводятся целые числа до тех пор пока не будет введен 0. Определить сколько среди них четных и нечетных чисел. Напишите программу используя цикл-пока(с предусловием):
While <логическое выражение> Do
<оператор>

(ниже прикреплено фото с этой же программой но на основе цикла-до(repeat))

Answer 1

Var a, k1, k2:integer;

Begin

K1:=0;k2:=0;a:=1;

While a<>0 do begin

Write('a=') ;read(a) ;

If a mod 2 =0 then k1:=k1+1 Else k2:=k2+1;

End;

Write ('четных ', k1-1) ;

Write('нечетных ', k2) ;

End.