Задача 5 Урок 12.1 Repeat/Until
Primary tabs
{12-1.5 Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите
с использованием одного цикла, в теле которого составьте логическое выражение,
описывающее подходящие числа (используйте логические операции).}
var a,b:integer; begin a:= 35; b:= 117; repeat if (a mod 2 = 0) then write(a, ' ') else if ((a >= 45) AND (a <= 99)) AND ((a mod 3 = 0) AND (a mod 7 = 0)) then write(a, ' '); a:= a+1; until (a > b); write('over'); readln(); end.
- Log in to post comments
- 805 reads