давай будем делать как отладчик)
конец первого круга: (1 < n) (не запускается если это не правда)
i = i * 2 = 2; s = s + i = 2;
конец Второго круга : (2 < n) (не запускается если это не правда)
i = i * 2 = 4; s = s + i = 6 (2 + 4);
конец Третьего круга (4 < n) (не запускается если это не правда)
i = i * 2 = 8; s = s + i = 14 (6 + 8)
конец Четвертого круга (8 < n) (не запускается если это не правда)
i = i * 2 = 16; s = s + i = 30 (16 + 14)
Внимание: Здесь S > 14 (и будет только увеличиваться)
=> 4 < n <= 8 => Максимальное n = 8
X=[15,1,0,255,12,38,154,36,794,2,54,-69] #массив
Z=[] #пустой массив
#запоминаем первый элемент из массива X как минимальный и максимальный
minc=X[0]
minind=0
maxc=X[0]
maxind=0
k=-1 #переменная-счетчик
for i in range(len(X)): #цикл
if i%2==0:
k+=1
Z.append(X[i]) #добавляем элемент Z[i], если i - четный
print(Z)
# проверка на минимум и максимум
if X[i]>maxc:
maxc,maxind=X[i],k
if X[i]<minc:
minc,minind=X[i],k
print(minind,maxind,k)
Z[minind]=maxc
Z[maxind]=minc
print(Z)
Var
x,a,d,z:int64;
begin
read(x,a,d);
z:=14*sqr(sqr(x))-5*sqr(a)+11*d-17;
writeln(z);
end.
var n,k:integer;
begin
readln(n);
k:=n mod 10;
while n>0 do begin
n:=n div 10;
if k<(n mod 10) then k:=n mod 10;
if k=9 then break;
end;
writeln(k);
end.