помогите плз. с такой задачкой:
Капитан дальнего плавания Константин – очень суеверный человек.
Осмотрев выставленные в ряд пачки с печеньем, приготовленные для очередного маршрута, он выбросил на пристань каждую K-ю пачку, если сумма цифр её массы равнялась M.
Помогите возмущённому коку подсчитать массу печенья, которая осталось у него на кухне.
Формат ввода
На вход программы поступают три числа N – количество пачек, K и M. В следующей строке записаны N натуральных чисел – массы пачек печенья. Все числа не превышают 105.
Формат вывода
Программа должна вывести одно число – суммарную массу всех оставленных пачек.
Пример
Ввод
10 3 9
1 2 9 1 2 1 1 2 1116 7
вывод
17
Answers & Comments
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.