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

Question

Информатика

Альфред

15 января, 13:51

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

+4

Ответы (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.