Если не превышает 10 символов, то только 4 и 8 символов подходит (2 и 3 бита соответственно).
var i,k,j,s:integer;
begin
readln(k);
FOR I:=100 TO 300 DO
begin
s:=0;
for j:=1 to i do
if i mod j=0 then s:=s+j;
if s=k then writeln(i);
end;
end.
1. не (123<10) или не (123 четное)
не ложно или не ложно
истина или истина = правда
2. не (56<10) или не (56 четное)
истина или не истина = истина
3. не (9<10) или не (9 четное)
не истина или не лож
лож или истина = истина
4. не (8<10) или не (8 четное)
не истина или не истина
лож или лож = лож
ответ 4
Var a,b,c:real;
begin
repeat
write('Введите длины сторон треугольника a,b,c ');
readln(a,b,c);
until (a>0) and (b>0) and (c>0);
if (a=b) and (b=c) then writeln ('Равносторонний')
else writeln('Не равносторонний или такой треугольник не существует');
end.
Тест №1
Введите длины сторон треугольника a,b,c 5 5 -5
Введите длины сторон треугольника a,b,c 5 5 5
Равносторонний
Тест №2
Введите длины сторон треугольника a,b,c 5 6 5
Не равносторонний или такой треугольник не существует
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])
