Var a, b, c, d:integer;
begin
for a:=1 to 10 do begin
write ('введите число=> ');
readln (d);
if (d mod 2=0) then c:=c+1 else d:=d+1;
end;
writeln ('чётных=> ', c,' нечётных=> ', d);
end.
Плюсы:
1. Россия обладает крупнейшими в мире запасами минерального сырья
2. Россия обладает крупнейшими в мире запасами пресной воды
3. Выход в океан с разных сторон света
4. Граничит с большинством стран
5. Крупные реки способствуют судоходству
6. Россия граничит с многими государствами, некоторые из которых наиболее развиты и с которыми у нас идёт активная торговля
7. В нашей стране большое разнообразие полезных ископаемых, лесных и водных ресурсов
8. Россия имеет открытый выход в море и океан, что способствует развитию рыболовства и других отраслей
9. На реках России построено много ГЭС, что является огромным плюсом в электроэнергетике
10. На юге страны построено множество курортов, которые известны во всём мире
11.В России много лесов, что способствует развитию мебельной промышленности и т. п.
12. В азиатской части России большие запасы топливных ресурсов, которые способны обеспечить саму Россию на множество лет
13. Россия имеет огромнейшее преимущество, так как с Севера граничит с Северным ледовитым океаном. Она закрывает доступ к богатейшим запасам энергоресурсов в шельфовой части материка почти для всех государств
Минусы:
1. Климатические и почвенные условия на большей её территории не благоприятствуют ведению сельского хозяйства. Зона рискованного земледелия охватывает около 95% территории.
2. Управляемость большой территории более сложная, чем маленькой
3. Необходимо строительство большого количества дорог (проблемы транспорта)
4. Вечная мерзлота (районы Сибири и Дальнего Востока) занимает 65 % территории России.
«Северность» России накладывает существенные ограничения на освоение территории. Громадные издержки страна несет из-за необходимости обогрева зданий, увеличения объемов конструкционных материалов, производства теплой одежды и обуви, строительства и поддержания дорожно-транспортной сети, укрепления инженерных сооружений и т. д.
5. Большая протяженность, поэтому возникают проблемы с доставкой грузов, что влияет на экономику
begin
for a:=1 to 10 do begin
write ('введите число=> ');
readln (d);
if (d mod 2=0) then c:=c+1 else d:=d+1;
end;
writeln ('чётных=> ', c,' нечётных=> ', d);
end.