2081(1) / 2 = 1040(0) / 2 = 520(0) / 2 = 260(0) / 2 = 130(0) / 2 = 65(1) / 2 = 32(0) / 2 = 16(0) / 2 = 8(0) / 2 = 4(0) / 2 = 2(0) / 2 = 1
100000100001,
переворачиваем число:
100001000001
Теперь считаем кол-во нулей, их: 9.
program z3;
uses crt;
var x,y,z,k:byte;
s:integer;
begin
clrscr;
write('Введи x='); readln(x);
write('Введи y='); readln(y);
write('Введи z='); readln(z);
if (x>z) and (not(odd(x))) then begin
s:=s+x;
k:=k+1;
end;
if (y>z) and (not(odd(y))) then begin
s:=s+y;
k:=k+1;
end;
writeln('Сумма чётных элементов, больших z равна ',s);
writeln('Кол-во чётных элементов, больших z равно ',k);
readkey
end.
Var a,n,i: integer;
begin
write('n = ');
readln(n);
a:=1;
for i:=1 to n div 3 do a:=2*a;
writeln('a = ',a);
end.
Пример:
<span>n = 7
a = 4</span>
Я считаю,что она нужна для того,чтобы запоминать все программы,действия,файлы. Чтобы помнить всё,что нужно для нас. Если помогло,то может добавьтесь ко мне в друзья?
a = int(input())
s = 1
flag = True
while s < a:
ch = s
count = ch
while ch > 9:
ch = sum(map(int,str(ch)))
count += ch
if count == a:
print(s)
flag = False
break
s += 1
if flag:
print(-1)