Урок 12.1 Задача 5
Primary tabs
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
var i: integer; begin i:=35; repeat if ((i>=45) and (i<=99))then if ((i mod 3)=0) then if ((i mod 7)=0) then if (not((i mod 2)=0)) then writeln(i); i:=i+1; until (i>117); readln(); end.
- Log in to post comments
- 397 reads