Вывести все числа в диапазоне от 15 до 125, являющиеся четными и кратными 3

Так как требуемый язык программирования не указан, напишем такую программу на языке Pascal. Из условия очевидно, что потребуется использование цикла с условием:

var a: integer;

begin

for a:=15 to 125 do

begin

if (a mod 2 = 0) and (a mod 3 = 0) then writeln (a);

a:=a+1;

end;

end.