Паскаль ЗАДАЧА 1 Найти и вывести на экран все чётные числа из промежутка от 30 до 48 ЗАДАЧА 2 Найти и вывести на экран числа кратные 3 из промежутка от 30 до 55

Четный - нацело делится на 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. Результат 30 32 34 36 38 40 42 44 46 48 30 33 36 39 42 45 48 51 54