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

Question

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

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

Answer 1

Четный - нацело делится на 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