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