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