Question

Подсчитать количество положительных нечетных чисел среди целых чисел a b c
на языке паскаль

Answer 1

var

 a, b, c, cnt: Integer;

 

begin

 cnt := 0;

 

 Write('a = ');

 Read(a);

 Write('b = ');

 Read(b);

 Write('c = ');

 Read(c);

 

 if (a > 0) and (a mod 2 = 1) then

   Inc(cnt);

 if (b > 0) and (b mod 2 = 1) then

   Inc(cnt);

 if (c > 0) and (c mod 2 = 1) then

   Inc(cnt);

 

 WriteLn(cnt)

end.