Question

помогите плз. с такой задачкой:


Капитан дальнего плавания Константин – очень суеверный человек.
Осмотрев выставленные в ряд пачки с печеньем, приготовленные для очередного маршрута, он выбросил на пристань каждую K-ю пачку, если сумма цифр её массы равнялась M.
Помогите возмущённому коку подсчитать массу печенья, которая осталось у него на кухне.
Формат ввода

На вход программы поступают три числа N – количество пачек, K и M. В следующей строке записаны N натуральных чисел – массы пачек печенья. Все числа не превышают 105.
Формат вывода

Программа должна вывести одно число – суммарную массу всех оставленных пачек.
Пример
Ввод

10 3 9
1 2 9 1 2 1 1 2 1116 7

вывод

17

Answer 1

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.

 

 

Answer 2

Если не сложно, отметьте как лучшее.

Answer 3

СПАСИБО!!

Answer 4

пишет ошибка компиляции

Answer 5

Не знаю, всё в порядке у меня. Может вы не правильно скопировали.