Даны натуральные числа от 1 до 200. Найти тех из них которые делятся на 2 и на 3.

var i: integer;begin i:=6; while i<200 do begin writeln('число = ',i); i:=i+6; end;end.

Pascal abc.Проверка6  12  18  24  30  36  42  48  54  60  66  72  78  84  90  96  102  108  114  120  126  132  138  144  150  156  162  168  174  180  186  192  198  

Если число делится одновременно на 2 и на три, оно также делится на 2х3=6.Первое такое натуральное число - это 6. А дальше наращиваем числа на 6...// PascalABC.NET 3.0, сборка 1088var  i:integer;begin  i:=6;  while i<=200 do begin Write(i,' '); i:=i+6 endend.Результат выполнения программы:6 12 18 24 30 36 42 48 54 60 66 72 78 84 90 96 102 108 114 120 126 132 138 144 150 156 162 168 174 180 186 192 198