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