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