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