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
В первом тексте
16=
i=4
Во втором текcте
32=
i=5
Далее:
ответ: в 1,25 раза племя Пульти пишет большим объемом чем племя Мульти