помогите плз. с таковой задачкой:Капитан далекого плавания Константин очень суеверный
Помогите плз. с таковой задачкой:
Капитан далекого плавания Константин очень суеверный человек.
Осмотрев выставленные в ряд пачки с печеньем, приготовленные для очередного маршрута, он выкинул на пристань каждую K-ю пачку, если сумма цифр её массы равнялась M.
Помогите возмущённому коку подсчитать массу печенья, которая осталось у него на кухне.
Формат ввода
На вход программки поступают три числа N количество пачек, K и M. В последующей строке записаны N естественных чисел массы пачек печенья. Все числа не превышают 105.
Формат вывода
Программка должна вывести одно число суммарную массу всех оставленных пачек.
Пример
Ввод
10 3 9
1 2 9 1 2 1 1 2 1116 7
вывод
17
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.