Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.
A=[]
sum=0
while True:
c=int(input())
if c==0:
break
a.append(c)
for d in a:
sum+=d
print(sum)
1)Это четное число?
-Да (1)
2)Меньше 50?
-Да (2)
3) Меньше 25?
-Да(3)
4) Меньше 12?
Да(4)
5)Меньше 6?
да(5)
Меньше 3?
да(6)
Это единица
Программисты которые создают вирусы более мотивированы чем те,которые создают антивирусы