<span>материальные ресурсы – совокупность предметов труда, предназначенных для использования в процессе производства общественного продукта, например сырье, материалы, топливо, энергия, полуфабрикаты, детали и т.д.;</span><span>природные ресурсы – объекты, процессы, условия природы, используемые обществом для удовлетворения материальных и духовных потребностей людей;</span><span>трудовые ресурсы – люди, обладающие общеобразовательными и профессиональными знаниями для работы в обществе;</span><span>финансовые ресурсы – денежные средства, находящиеся в распоряжении государственной или коммерческой структуры;</span><span>энергетические ресурсы – носители энергии, например уголь, нефть, нефтепродукты, газ, гидроэнергия, электроэнергия и т.д.</span>
Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>
В 10 раз в соответствующих с.с.
т.е.:
<span>
Вот на здоровье :)</span>
Var i,k: integer;
a: array[1..16] of integer;
priz: boolean;
st: string;
begin
k:=0; priz:=false;
st:='';
randomize;
writeln('исходный массив из 16 элементов');
for i:=1 to 16 do
begin
a[i]:=random(50)-30;
write(a[i],' ');
if a[i]<0 then k:=k+1;
if (a[i] mod 3) = 0 then
begin
priz:=true;
if i>9 then
st:=st+chr(ord(49))+chr(ord((i mod 10)+48))+','
else st:=st+chr(ord(i+48))+',';
end;
end;
writeln;
delete(st,length(st),1);
if k>0 then
writeln('кол-во отрицат. элементов = ',k);
if priz then
writeln('индексы элементов, кратных трем: ',st)
else writeln('нет элементов, кратных 3');
readln;
<span>end.
</span>