помогите плз. с таковой задачкой:Капитан далекого плавания Константин очень суеверный

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


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

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

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

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

вывод

17

Задать свой вопрос
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 Pgt;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.

 

 



Милена Ведмецкая
Если не трудно, отметьте как лучшее.
Саша
СПАСИБО!!
Лепендина Татьяна
пишет ошибка компиляции
Bahina Jana
Не знаю, всё в порядке у меня. Может вы не верно скопировали.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт