Pascal урок 11 задача 4
Primary tabs
Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).
1.
var i, a: integer; begin while(i< 117) do begin i:= i +1; if (i > 35) and (( i mod 2) = 0) then writeln(i); if (i > 45) and (i < 99) and ((i mod 2) = 1) then writeln(i); end; if (i< 117) then writeln(i); readln(); end.
2.
var i, a: integer; begin i:=35; while(i< 117) do begin i := i + 1; if (( i mod 2) = 0) or (i > 45) and (i < 99) and ((i mod 2) = 1) then writeln(i); end; readln(); end.
- Log in to post comments
- 626 reads