Циклы в языке программирования Pascal

Дано n целых чисел. Сколько из них являются нечётными?

Question

Информатика

Апросинья

11 декабря, 08:42

Циклы в языке программирования Pascal

Дано n целых чисел. Сколько из них являются нечётными?

+5

Ответы (1)

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

Филя · Answer 1

Var

A, n, k:integer;

Begin

Write ('n = ') ; ReadLn (n) ;

Write ('Введите целые числа (', n,' шт.) : ') ;

k:=0;

For n: = 1 to n do

Begin

Read (A) ;

if A mod 2 = 0 then k:=k+1

End;

WriteLn ('Кол-во чётных чисел: ', k)

End.

Циклы в языке программирования PascalДано n целых чисел. Сколько из них являются нечётными?

Циклы в языке программирования Pascal

Дано n целых чисел. Сколько из них являются нечётными?