Определить количество чисел кратных 2 - Pascal ABC

Формулировка задачи:

Количество чисел вводимых с клавиатуры равно N. Определить количество чисел кратных 2.

Код к задаче: «Определить количество чисел кратных 2 - Pascal ABC»

textual
k:=0;
for i:=1 to n do
 begin
   readln(a);
   if a mod 2=0 then k:=k+1;
 end;
write('k=',k);

11   голосов, оценка 3.818 из 5


СОХРАНИТЬ ССЫЛКУ