Question

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

Answer 1

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  

4c69bfa5f2f9709d17b98096a4cb4dbd.pas

Answer 2

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

Answer 3

Если число делится одновременно на 2 и на три, оно также делится на 2х3=6.
Первое такое натуральное число - это 6. А дальше наращиваем числа на 6...

// PascalABC.NET 3.0, сборка 1088
var
  i:integer;
begin
  i:=6;
  while i<=200 do begin Write(i,' '); i:=i+6 end
end.

Результат выполнения программы:
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

4c69bfa5f2f9709d17b98096a4cb4dbd.pas