Может, все ЦИФРЫ чётные? Тогда смысл понятен. Будем считать это правильным условием. Тогда: 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. //конец программы
Любая система может действовать по правилам разомкнутой или замкнутой схемы управления. Управление есть целенаправленное взаимодействие объектов, одни из которых являются управляющими, другие — управляемыми. Простая ситуация — два объекта: один — управляющий, второй — управляемый. Человек и телевизор, хозяин и собака, светофор и автомобиль. Например: хозяин голосом отдает команду собаке, человек включает свет в комнате. Когда управляющее воздействие происходит в одну сторону, то такая система называется разомкнутой. В разомкнутой информационной системе получаемая потребителем информация используется произвольно. От потребителя в информационную систему ничего не поступает. Разомкнутая система оказывается не к управлению в случае перехода управляемого объекта в неустойчивое состояние. Пример такой системы — светофор и автомобиль. (светофор "не глядя" управляет движением машин, не зная обстановку на перекрестке). В примере "хозяин и собака" процесс управления протекает иначе. Прежде, чем отдать очередную команду, человек смотрит на состояние объекта управления, на результат выполнения предыдущей команды. Следовательно, управляющий не только отдает команды, но и принимает информацию от объекта управления о его состоянии. Этот процесс называется обратной связью. Обратная связь — это процесс передачи информации о состоянии объекта управления к управляющему. Система с обратной связью называется замкнутой. Если представить последовательность управляющих воздействий в виде алгоритма, то для разомкнутой системы такой алгоритм всегда будет линейным. В замкнутых системах управления алгоритм управления может оказаться ветвящимся или циклическим.
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
end.