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