Данные цели положительные числа N, K, M, a1, …, aN. Определить сумму и произведение членов последовательности a2, a4, .., aN не кратно K и кратных M.

язык программирования python

summ = 0

pro = 0

first = True

N = int(input('Введите N: '))

K = int(input('Введите K: '))

M = int(input('Введите M: '))

str_A = input('Введите последовательность a через пробел: ').split()

A = [int(item) for item in str_A]

for i in range(1, N + 1, 2):

   if A[i] % K != 0 and A[i] % M == 0 and first:

       first = False

       summ = A[i]

       pro = A[i]

   elif A[i] % K != 0 and A[i] % M == 0 and not(first):

       summ += A[i]

       pro *= A[i]

print('Сумма: ' + str(summ))

print('Произведение: ' + str(pro))

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.