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