Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных до ввода числа 0

Question

Информатика

Адя

6 февраля, 21:03

Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных до ввода числа 0

+3

Ответы (1)

Знаете ответ?

Ефросимыч · Answer 1

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.