Даны целые числа из промежутка [-24; 56]. Найти сумму всех нечетных чисел и количество четных чисел. Найти произведение чисел кратных 7, но не кратных 3 — PureBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
summNechet=0
countChet=0
P = 1
For i=-24 to 56
  If i mod 2 = 1 Then
    summNechet = summNechet + i
  Else
    countChet = countChet + 1
  End if
   
  If i mod 7=0 AND i mod 3 <> 0 Then
    P = P * i
  End if
Next i
  
Print summNechet
Print countChet
Print P

Похожие записи/страницы:

Leave a Comment