Плз. с такой : капитан дальнего плавания константин – суеверный человек. осмотрев выставленные в ряд пачки с печеньем, приготовленные для очередного маршрута, он выбросил на пристань каждую k-ю пачку, если сумма цифр её массы равнялась m. возмущённому коку подсчитать массу печенья, которая осталось у него на кухне. формат ввода на вход программы поступают три числа n – количество пачек, k и m. в следующей строке записаны n натуральных чисел – массы пачек печенья. все числа не превышают 105. формат вывода программа должна вывести одно число – суммарную массу всех оставленных пачек. пример ввод 10 3 9 1 2 9 1 2 1 1 2 1116 7 вывод 17
Program A;
var
N,K,M,M1,i:byte;
P,P1,H:integer;
t:0..1;
begin
readln(N,K,M);
for i:=1 to N do
begin
read(P);
P1:=P;
M1:=0;
t:=0;
if i mod K = 0 then
while P>0 do
begin
M1:=M1+P mod 10;
P:=P div 10;
end;
if M1=M then
t:=1;
if t=0 then
H:=H+P1;
end;
write(H);
end.