li = []
elements = 1
negative_index = 0
positive_index = 0
print("Введите 0 что бы остановить ввод")
while elements != 0:
elements = int(input("Введите элементы списка\n"))
li.append(elements)
li2 = li[:]
li2.sort()
length = li.__len__()
print(li)
for i in range(0, length-1):
for j in range(length-1, 1, -1):
if li2[i] * (-1) == li2[j]:
for k in range(0, length-1):
if li2[i] == li[k]:
negative_index = k
if li2[j] == li[k]:
positive_index = k
if negative_index < positive_index:
print("Индекс противоположного числа(1) ->", negative_index)
print("Индекс противоположного числа(2) ->", positive_index)
elif negative_index == positive_index == 0:
exit(0)
else:
print("Индекс противоположного числа(1) ->", positive_index)
print("Индекс противоположного числа(2) ->", negative_index)
P.S
Код не идеальный, но задачу выполняет
Я не могу загрузить файлы, но вот коды. Создай файлы и вставь
repeat_.pas:
program repeat_;
var n, k, counter: Integer;
begin
ReadLn(n);
k := 1;
counter := 0;
repeat
if (n mod k = 0) then
counter += 1;
if n <> k then
Write(k, ' ')
else
Write(k, '; ');
end;
k += 1;
until n < k;
WriteLn('всего делителей - ', counter);
end.
while_.pas:
program while_;
while (k <= n) do
li = []
elements = 1
negative_index = 0
positive_index = 0
print("Введите 0 что бы остановить ввод")
while elements != 0:
elements = int(input("Введите элементы списка\n"))
li.append(elements)
li2 = li[:]
li2.sort()
length = li.__len__()
print(li)
for i in range(0, length-1):
for j in range(length-1, 1, -1):
if li2[i] * (-1) == li2[j]:
for k in range(0, length-1):
if li2[i] == li[k]:
negative_index = k
if li2[j] == li[k]:
positive_index = k
if negative_index < positive_index:
print("Индекс противоположного числа(1) ->", negative_index)
print("Индекс противоположного числа(2) ->", positive_index)
elif negative_index == positive_index == 0:
exit(0)
else:
print("Индекс противоположного числа(1) ->", positive_index)
print("Индекс противоположного числа(2) ->", negative_index)
P.S
Код не идеальный, но задачу выполняет
Я не могу загрузить файлы, но вот коды. Создай файлы и вставь
repeat_.pas:
program repeat_;
var n, k, counter: Integer;
begin
ReadLn(n);
k := 1;
counter := 0;
repeat
if (n mod k = 0) then
begin
counter += 1;
if n <> k then
Write(k, ' ')
else
Write(k, '; ');
end;
k += 1;
until n < k;
WriteLn('всего делителей - ', counter);
end.
while_.pas:
program while_;
var n, k, counter: Integer;
begin
ReadLn(n);
k := 1;
counter := 0;
while (k <= n) do
begin
if (n mod k = 0) then
begin
counter += 1;
if n <> k then
Write(k, ' ')
else
Write(k, '; ');
end;
k += 1;
end;
WriteLn('всего делителей - ', counter);
end.