1. Информатика
  2. Плз. с такой : капитан дальнего

Плз. с такой : капитан дальнего плавания константин – суеверный человек. осмотрев выставленные в ряд пачки с печеньем, приготовленные для очередного маршрута, он выбросил на пристань каждую 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.

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MadMax818 MadMax818  21.04.2019 17:02
При каком последнем значении будет исполняться цикл: а) for i: =2 to 8 do … b) for i: =100 downto 23 do c) w: =3; for i: =3 to 8+w do …...
Milki0Way0 Milki0Way0  21.04.2019 16:59
Надо, ! использовать алгоритм сместиться на вектор. ​...
danilklimenko2 danilklimenko2  21.04.2019 16:56
60 информатика 8 класс программа паскаль...
22391 22391  29.08.2019 10:40
50 ! ! указать действия, которые выполняются при применении фильтров в среде табличногопроцессора ms excel. а отображаются на экране только те записи списка, соответствующие заданным...
Топтоппатимейкер Топтоппатимейкер  29.08.2019 10:40
Объявлен набор в футбольную команду. известен рост каждого из n участников. подсчитать кол-во претендентов, имеющих шанс попасть в команду, если рост игрока должен быть не меньше...
23v 23v  29.08.2019 10:50
Нужно написать модель солнечной системы с 3 планетами( меркурий, венера, земля) и 1 спутник(луна). чем дальше планеты от солнца тем медленнее они крутятся. есть код на одну планету,...
Mishgan21 Mishgan21  30.07.2019 21:30
Сопоставьте моделям их тип 1)дерево каталогов windows а)сетевая модель 2)схема линий метрополитена в) табличная модель 3)прайс-лист компьютерных с)иерархическая модель комплектующих...
annaozerkevich annaozerkevich  30.07.2019 21:30
Склавиатуры вводится последовательность чисел до тех пор,пока не будет введено число 0.требуется найти максимальное из введенных чисел....
Zlyka11 Zlyka11  16.11.2020 11:11
Дайте с решением 1. Какой объем информации (в килобайтах) можно передать за 10 мин по каналу с пропускной бит/с. 2. Сколько секунд потребуется модему, передающему сообщения со...
данииил4 данииил4  16.11.2020 11:10
На рисунке слева изображена схема докоr Н-ского района, в таблице звездочкой обозначено наличие дороги из одного населенного пункта в другой. Отсутствие звездочки откачает, что...

Популярные вопросы