Язык паскаль.Вводятся целые числа до тех пор пока не будет введен 0. Определить сколько среди них четных и нечетных чисел. Напишите программу используя цикл-пока(с предусловием):
While <логическое выражение> Do
<оператор>
(ниже прикреплено фото с этой же программой но на основе цикла-до(repeat))
Приложения:
![](https://st.uroker.com/files/40a/40a517e5bbc250daea0fad72265ea8af.jpg)
Ответы
Ответ дал:
0
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.
Ответ дал:
0
https://znanija.com/task/32154761
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад