Рассмотрим вариант решения задания из учебника Босова, Босова 11 класс, Бином: 11. Напишите программу, выводящую на экран все чётные трёхзначные числа. Трехзначные числа – это числа от 100 до 999. Четное число должно давать по модулю 2 0, т.е. если х четное, то х mod 2=0. Самый простой вариант программы сделать цикл от 100 до 999 и подсчитать все четные числа. var x,n: integer; begin n:=0; for x:=100 to 999 do if x mod 2=0 then n:=n+1; writeln(n) end. Программа: Z_7_11.pas (ссылка ниже)