Question

Напишите программу, выводящую на экран все чётные трёхзначные числа.

Answer 1

program EvenNumbers;
var   num: integer;
begin   writeln('Четные трехзначные числа:');
  for num := 100 to 999 do   begin     if (num mod 2 = 0) then       writeln(num);   end; end.