Урок №12.1 Задание 8
Primary tabs
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
program Pr12_1_8; var i:integer; begin i:=35; repeat if (i mod 2=0) then write(i:4); if ((i>=45) and (i<=99)) and ((i mod 7=0) and (i mod 3=0) and (i mod 2<>0)) then write (i:4); i:=i+1; until (i=117); readln(); 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
- 221 reads