Решите задачу по программированию
Как мы знаем шоколадки дарят только тем, кто хорошо прошел IQ тест. Поэтому в детском саду №603075 решили подарить 228 грамм шоколада каждому ребенку, кто набрал не менее X баллов за тест. Шоколад продаётся плитками по 1337 грамм. Плитка ломается на кусочки по 228 грамм и эти кусочки раздаются детям. Остаток не выбрасывается и учитывается в следующем подарке. Определите сколько детей получат награду и сколько плиток шоколада для этого необходимо приобрести.
Формат ввода
В первой строке вводится N, X (1 <= N <= 105, 1 <= X <= 109) — количество детей и необходимый минимальный результат теста. В следующей строке вводится N целых положительных чисел не превышающих 109 — результаты теста.
Формат вывода
Выведите два числа — количество заслуженных обладателей кусочков шоколада и количество необходимых плиток шоколада.
Как мы знаем шоколадки дарят только тем, кто хорошо прошел IQ тест. Поэтому в детском саду №603075 решили подарить 228 грамм шоколада каждому ребенку, кто набрал не менее X баллов за тест. Шоколад продаётся плитками по 1337 грамм. Плитка ломается на кусочки по 228 грамм и эти кусочки раздаются детям. Остаток не выбрасывается и учитывается в следующем подарке. Определите сколько детей получат награду и сколько плиток шоколада для этого необходимо приобрести.
Формат ввода
В первой строке вводится N, X (1 <= N <= 105, 1 <= X <= 109) — количество детей и необходимый минимальный результат теста. В следующей строке вводится N целых положительных чисел не превышающих 109 — результаты теста.
Формат вывода
Выведите два числа — количество заслуженных обладателей кусочков шоколада и количество необходимых плиток шоколада.
More Questions From This User See All
Answers & Comments
Verified answer
program raf105;
var iq,n,x,i,choco,choco_counter,kid_counter: integer;
begin
write('Введите количество детей в детском саду: ');
readln(n);
write('Введите желаемый IQ: ');
readln(x);
writeln('Вводите IQ ',n,' детей по очереди.');
for i:=1 to n do
begin
readln(iq);
if iq >= x
then begin
if choco div 228 < 1
then begin
choco_counter+= 1;
choco+= 1337;
end;
choco-= 228;
kid_counter+= 1;
end;
end;
writeln('Награду получат ',kid_counter,' дет.');
writeln('Шоколада потребуется приобрести: ',choco_counter,' плит.');
end.
PascalABC 3.4.2
Введите желаемый IQ: 97
Вводите IQ 6 детей по очереди.
96
99
95
98
99
91
Награду получат 3 дет.
Шоколада потребуется приобрести: 1 плит.