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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.