Вычислить сумму 1/3+1/5+1/8+1/13 в delphi

Question

Информатика: Вычислить сумму 1/3+1/5+1/8+1/13 в delphi

noxiksds · Accepted Answer

1.
N=int(input())
s=2
flag=False
for i in range(N):
if N=s:
flag=True
break
else:
s*=2
if flag:
print('Yes')
else:
print('No')

2.
n=int(input())
def MinDivisor(n):
nod=-1
for i in range(n-1):
if n%i=0:
return i
break

if MinDivision(n)==-1:
print(n,' число является простым.')
else:
print(MinDivision(n))

3.
A=int(input())
x=x1=1
s=0
while x1<A+2:
b=x
x=x1
x1+=b
s+=1
if x1==A:
print(s)
else:
print(-1)

4.
a=[]
while 1:
s=int(input())
if s==0:
break
a.append(s)
a.sort()
print(a[-2])

MOGZ ответил