zaotar2008
?>

Чи можна складену підзадачу вважати алгоритмом

Информатика

Ответы

infocenterbla
Const
n=5;m=10;
var
b:array[1..n,1..m]of integer;
i,j,k,buf,l:integer;
begin
    for i:=1 to n do
         begin
           writeln;
              for j:=1 to m do
                 begin
                    b[i,j]:=random(50);
                    write(b[i,j]:4);
                  end;
           end;
writeln;
for j:=1 to m do
   begin
      k:=0;
       for i:=1 to n-1 do
            if b[i,j]<b[i+1,j]then
                k:=k+1;
            if k=n-1 then
               buf:=buf+1;
    end;
k:=0;
for l:=2 to m do
   if l mod 2=0 then
     for i:=1 to n-1 do
       for j:=i+1 to n do
           if b[i,l]>b[j,l]then
               begin
                   k:=b[i,l];
                   b[i,l]:=b[j,l];
                   b[j,l]:=k;
                end;
writeln('увеличилось  ',m div 2-buf);
for i:=1 to n do
   begin
      writeln;
          for j:=1 to m do
             write(b[i,j]:4);
    end;
end.
       
                  
mantseva

def check_perfect(number:int, dividers = []):

for i in range(1, number):

 if number%i == 0:

  dividers.append(i)

if sum(dividers) == number:

 return 1

def get_div(num, div = []):

for i in range(1, num):

 if num%i == 0:

  div.append(i)

return div

def main():

number = int(input())

if check_perfect(number):

 print(' '.join(str(num) for num in get_div(number)))

else:

 print(0)

if __name__ == '__main__':

main()

Объяснение:

На случай, если сайт сломает табуляции в коде (А он их сломает), ниже представлен скриншот оригинала кода. Программа протестирована.


совершенным называется число, равное сумме всех своих делителей, меньших его самого (например, число

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Чи можна складену підзадачу вважати алгоритмом
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

platonovkosty
mkovanov
Сергей_Крутикова114
snabomp
purchase
DudukinSerega2507834
razumeiko0790
alekseysokolov29816
Rafigovich1267
potemkin77
ilyagenius
О. Карпов1691
Anastasiya Yevseeva948
v79150101401
Georgievna1407