Урок 10.1 Задача 8

Primary tabs

Submitted by avast36 on Mon, 03/28/2022 - 13:50

Forums:

Урок 10.1 Задача 8

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

Решение:

var i:integer;
begin
      for i:=35 to 117 do
        if (i mod 3 = 0)and(i>=35)and(i<=117) then
          writeln(i, ' ')
        else if(i mod 2 <> 0)and(i>=45)and(i<=99) then
          writeln(i, ' ');
  readln();
end.

Консоль:

36
39
42
45
47
48
49
51
53
54
55
57
59
60
61
63
65
66
67
69
71
72
73
75
77
78
79
81
83
84
85
87
89
90
91
93
95
96
97
99
102
105
108
111
114
117
  • Log in to post comments
  • 1766 reads
vedro-compota's picture

vedro-compota

Sat, 04/16/2022 - 20:18

  1. Исправить форматирование
  2. Проверить на лишние условия (проверки)

_____________
матфак вгу и остальная классика =)

avast36

Sat, 04/16/2022 - 20:27 

var i:integer;
begin
  for i:=35 to 117 do
    if (i mod 3 = 0)or(i mod 2 <> 0)and(i>=45)and(i<=99) then
      writeln(i, ' ');
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 04/20/2022 - 20:18

засчитано

_____________
матфак вгу и остальная классика =)