1.дан массив натуральных чисел. найти сумму элементов, кратных данному к. написать программу в питоне

ответ:

program num1;

uses crt;

var

a : array [1..100] of integer;

i,k,n, s : integer;

begin

clrscr;

s: =0;

write('k='); readln(k);

write('n='); readln(n);

for i: =1 to n do 

readln(a[i]);

for i: =1 to n do

if (a[i] mod k)=0 then s: =s+a[i];

writeln('s=',s);

end.

составим таблицу:

                        | молоко  | лимонад | квас | вода

бутылка |       -          |              +          |      -      |      -

стакан    |          -          |            -           |      -      |      +

кувшин  |          +          |            -            |      -     |      -

банка      |          -            |            -           |      +    |        -

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.