Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных до ввода числа 0
Ответы
Ответ дал:
0
var
a,k :integer;
begin
repeat
begin
writeln ('введи число');
read (a);
if (a mod 2 <>0) then k:=k+1;
end;
until a=0;
writeln ('количество нечетных чисел k=',k);
end.
Похожие вопросы
2 года назад
6 лет назад
6 лет назад
9 лет назад