Задача 5 Урок 12.1
Primary tabs
http://fkn.ktu10.com/?q=node/8674
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
var a: integer; begin a := 35; repeat if ((a > 45) and (a < 99) and ((a mod 3) = 0) and ((a mod 7) = 0) and ((a mod 2) <> 0)) then begin writeln(a); end else if ((a mod 2) = 0) then begin writeln(a); end; a := a + 1; until(a > 117); end.
КОНСОЛЬ
36 38 40 42 44 46 48 50 52 54 56 58 60 62 63 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100 102 104 106 108 110 112 114 116
- Log in to post comments
- 449 reads