Может, все ЦИФРЫ чётные? Тогда смысл понятен. Будем считать это правильным условием. Тогда: program Chisla; var i,a,b,c,d:integer; BEGIN for i:=1000 to 9999 do begin a:=i div 1000; if a mod 2=1 then continue; //если первая цифра нечетная, переход на следующий виток цикла b:=(i div 100) mod 10; if b mod 2=1 then continue; //если вторая цифра нечетная, переход на следующий виток цикла c:=(i mod 100) div 10; if c mod 2=1 then continue; //если третья цифра нечетная, переход на следующий виток цикла d:=i mod 10; if d mod 2=1 then continue //если четвертая цифра нечетная, переход на следующий виток цикла else writeln(i); //иначе все цифры четные - выводим число i на экран end; //конец витка цикла END. //конец программы
1 С
2 B
3 D
4 E
5 A
6 F