Question

Срочно язык паскаль!!!!!
Напишите программу которая в последовательно натуральных чисел определяет количество чётных трёхзначных чисел программа получает на ввод натуральные числа количество введённых чисел не известно последовательность чисел заканчивается числом 0

Answer 1

var k,schet:integer;

begin

   schet:=0;

   k:=1;

   while k <> 0 do begin

     readln(k);

   if (k mod 2 = 0) and (k>99) and (k <= 999) then

     schet:=schet+1;

   end;

   writeln(schet)  

end.