Для вводимых n чисел с клавиатуры посчитайте кол-во чётных чисел

Question

Информатика: Для вводимых n чисел с клавиатуры посчитайте кол-во чётных чисел

vlad200883 · Answer

var n,k:integer;begink:=0;writeln ( Признак окончания ввода - число 0 );readln(n);while n 0 do beginif n mod 2 = 0 then k:=k+1;readln(n);end;writeln (k);end....

Для вводимых n чисел с клавиатуры посчитайте кол-во чётных чисел

Популярные вопросы