Задача 5 урок 12
Primary tabs
http://fkn.ktu10.com/?q=node/8674
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).
Вариант 1:
program task5_lesson12; var i:integer; begin i := 35; repeat if ((i mod 2) = 0) then writeln(i); i := i + 1; until (i > 117); i := 45; repeat if (((i mod 2) = 1) and ((i mod 21) = 0)) then writeln(i); i := i + 1; until (i > 99); readln(); end.
Вариант 2:
program task5_lesson12; var i:integer; begin i := 35; repeat if ((i mod 2) = 0) or (((i mod 2) = 1) and ((i mod 21) = 0) and (i < 99)) then writeln(i); i := i + 1; until (i > 117); readln(); end.
- Log in to post comments
- 424 reads