


Программирование
+4Задача по информатике, помогите срочно, язык Паскаль
Напишите программу, которая в последовательности натуральных чисел определяет количество чётных трёхзначных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа
Количество чисел не превышает 1000. Введеные числа не превышают 30000.
Программа должна вывести одно число- количество чётных трёхзначных чисел
По дате
По рейтингу
123456789
var i, n, c, v: integer;
begin
read(n);
for i := 1 to n do begin
read(v);
if not odd(v) and (v >= 100) and (v <= 999) then inc(c)
end;
writeln(c)
end.
Больше по теме