Ну, наверное это должно выглядеть как то так. Не советую копировать, сайт нарушает табуляции. Прогу протестил, всё гуд
def main():
run = True
def divide(n):
div_list = []
for i in range(1, n):
if n % i == 0:
div_list.append(i)
div_list = list(map(int, div_list))
return div_list
def check_input(ask):
if ask == 'Da':
normal = True
elif ask == 'net':
normal = False
else:
print('IOError')
return normal
while run:
n = int(input())
print(divide(n))
ask = input('Run again?')
run = check_input(ask)
if __name__ == "__main__":
main()
end = input()
program arraysum;
const
D = 30; // размерность массива, можно менять на любое другое
var
B: array [1..D] of Integer;
i, s, c, A: Integer;
begin
Write ('A = ');
ReadLn (A);
Write ('Введите массив из 30 элементов:');
for i := 1 to D do begin
ReadLn (B [i]);
end;
// Randomize; // это заполнение случайными числами можно для отладки раскоментарить
// for i := 1 to D do begin
// B [i] := Random (21) - 5;
// Write (B [i] :3, ' ');
// end;
s := 0;
c := 0;
if B [i] < 0 then
s := s + B [i];
if (B [i] > 0) and (B [i] < A) then
Inc (c);
WriteLn;
WriteLn ('Сумма отрицательных чисел =', s);
WriteLn ('Количество положительных меньших ', A, ' = ', c);
ReadLn;
end.
Ну, наверное это должно выглядеть как то так. Не советую копировать, сайт нарушает табуляции. Прогу протестил, всё гуд
def main():
run = True
def divide(n):
div_list = []
for i in range(1, n):
if n % i == 0:
div_list.append(i)
div_list = list(map(int, div_list))
return div_list
def check_input(ask):
if ask == 'Da':
normal = True
elif ask == 'net':
normal = False
else:
print('IOError')
return normal
while run:
n = int(input())
print(divide(n))
ask = input('Run again?')
run = check_input(ask)
if __name__ == "__main__":
main()
end = input()
program arraysum;
const
D = 30; // размерность массива, можно менять на любое другое
var
B: array [1..D] of Integer;
i, s, c, A: Integer;
begin
Write ('A = ');
ReadLn (A);
Write ('Введите массив из 30 элементов:');
for i := 1 to D do begin
ReadLn (B [i]);
end;
// Randomize; // это заполнение случайными числами можно для отладки раскоментарить
// for i := 1 to D do begin
// B [i] := Random (21) - 5;
// Write (B [i] :3, ' ');
// end;
s := 0;
c := 0;
for i := 1 to D do begin
if B [i] < 0 then
s := s + B [i];
if (B [i] > 0) and (B [i] < A) then
Inc (c);
end;
WriteLn;
WriteLn ('Сумма отрицательных чисел =', s);
WriteLn ('Количество положительных меньших ', A, ' = ', c);
ReadLn;
end.