Регистрация
askatovvv
10.02.2023 16:26
Информатика
Есть ответ 👍

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

113
326
Посмотреть ответы 2

Ответы на вопрос:

lenabejenar
lenabejenar
4,7(12 оценок)

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.

 

 

диана128
диана128
4,5(60 оценок)
If x< 1 then y: =sqr(2) else if x> 1 then y: =x+8 else writeln('x не должен быть=0') объяснение: если x< 1, то y: = , иначе, если x> 1, то y: =x+8,иначе вывести: x не должен быть=0

Популярно: Информатика