Природные ресурсы по количеству запасов делятся на исчерпаемые и неисчерпаемые. Исчерпаемые в свою очередь делятся на возобновимые и невозобновимые. По назначению природные ресурсы делятся на многоцелевые, промышленные и сельскохозяйственные.
Var a,b,c :integer;
begin
writeln('введите число A') ;
readln(A);
writeln('введите число B') ;
readln(B);
writeln('введите число C') ;
readln(C);
S:=(sqr(a)+sqr(b)+sqr(c))/3;
writeln(S);
end.<span>
</span>
По-моему, ты не поставил какой-то знак перед последней скобкой в длинном выражении
Var
n,i,sum,p: integer;
begin
sum:=0;
p:=1;
for i:=5 to 36 do sum:=sum+i;
for i:=5 to 9 do p:=p*i;
sum:=sum+p;
writeln ('otvet=',sum);
end.
1) 5 + 33 div 6 = 5 + 5 = 10
2) -47 mod 9 = -2
3) 24 div 8 - 13 mod 6 = 3 - 1 = 2
4) 1/2 - 17 mod 8 = 1/2 - 1 = -1/2