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
var n,x,k,i:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(x);
if x mod 10=9 then
k:=k+1;
end;
write('всего чисел которые оканчиваются на 9: ',k);
end.
Объяснение: