1. Вывести на экран все целые числа от 100 до 200, кратные трем.

program Example;

var

i:integer;

first:boolean; / /вспомогательная переменная для вывода запятой в нужном месте

begin

first:=true;

for i:=100 to 200 do

if i mod 3=0 then / /Проверяем деление на 3

if (first) then

begin

write (i);

first:=false;

end else

write (', ', i);

end.

В результате получим:

102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147, 150, 153, 156, 159, 162, 165, 168, 171, 174, 177, 180, 183, 186, 189, 192, 195, 198