Плз. с такой : капитан дальнего плавания константин – суеверный человек. осмотрев выставленные в ряд пачки с печеньем, приготовленные для очередного маршрута, он выбросил на пристань каждую k-ю пачку, если сумма цифр её массы равнялась m. возмущённому коку подсчитать массу печенья, которая осталось у него на кухне. формат ввода на вход программы поступают три числа n – количество пачек, k и m. в следующей строке записаны n натуральных чисел – массы пачек печенья. все числа не превышают 105. формат вывода программа должна вывести одно число – суммарную массу всех оставленных пачек. пример ввод 10 3 9 1 2 9 1 2 1 1 2 1116 7 вывод 17

mushicz mushicz    1   06.10.2019 18:50    0

Ответы
дарья1293 дарья1293  10.10.2020 00:11

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.

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика