Задача 5 Урок 11

Задача 5 Урок 11

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

С двумя циклами:

var a,b:integer;
begin
  a:=35;
  while (a<117) do
    begin
    if((a mod 2)=0)then
      write(a, ' ');
      a:=a+1;
    end;
  writeln();
  b:=45;
  while (b<99) do
    begin
      if((b mod 2)=1) then
      write(b, ' ');
      b:=b+1;
    end;
  readln();
end.           


Вывод консоли:
36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100 102 104 106 108 110 112 114 116
45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 

С одним циклом:

var a: integer;
begin
  a:= 35;
  while ((a >= 35) AND (a <= 117)) do
  begin
    if ((a mod 2) = 0) then
       write(a, ' ');
       writeln();
    if ((a >= 45) AND (a <=99) AND ((a mod 2) = 1)) then
         write(a, ' ');
         a:=a+1;
  end;
readln();
end.

Вывод консоли:

36

38

40

42

44

45 46

47 48

49 50

51 52

53 54

55 56

57 58

59 60

61 62

63 64

65 66

67 68

69 70

71 72

73 74

75 76

77 78

79 80

81 82

83 84

85 86

87 88

89 90

91 92

93 94

95 96

97 98

99 100

102

104

106

108

110

112

114

116