Четный - нацело делится на 2, кратный трем - нацело делится на 3. Самый простой алгоритм, который приходит в голову - дурацкий. Перебираем все числа и проверяем каждое, подходит ли оно. Гораздо проще взять первое подходящее число из заданного диапазона, а потом идти от него с шагом, равным 2 или 3 (смотря чему нужна кратность).
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016 begin Range(30,48,2).Println; // 1-я задача Range(30,55,3).Println // 2-я задача end.
Самый простой алгоритм, который приходит в голову - дурацкий. Перебираем все числа и проверяем каждое, подходит ли оно. Гораздо проще взять первое подходящее число из заданного диапазона, а потом идти от него с шагом, равным 2 или 3 (смотря чему нужна кратность).
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
Range(30,48,2).Println; // 1-я задача
Range(30,55,3).Println // 2-я задача
end.
Результат
30 32 34 36 38 40 42 44 46 48
30 33 36 39 42 45 48 51 54