экологические - загрязнение атмосферного воздуха, состояние водных ресерсов, разрушение земельных. парниковый эффект, истощение озонового слоя, вырубка лесов, и биологическиезагрязнения, истощение природных ресерсов, повышение радиоактивного фона.
политические - сохранение мира, борьба с терроризмом,обеспечение национальной и международной безопасности государств, решение международных, государственных и этнических конфликтов, недопущение силового решения конфликтов, прекращение гонки вооружений, соблюдение прав и свобод человека, демилитаризация космоса.
социальные - права и свободы человека, борьба с высокой смертностью, беспризорностью, наркоманией, алкоголизмом, проституцией, преступностью, социальным неравенством, нарушением прав ребенка, малоимущим, престарелым, , совершенствование системы
- решение сырьевой, энергетической и продовольственной проблем, борьба с инфляцией, развитие промышленности, развитие науки и нтп
уже писал, но попал в баг(
так вот. в паскале это будет так:
1)var a,b,c: integer;
begin
readln(a,b);
if a div 2 =0 then c: =(a+b)*(a+b)*(a+b);
else c: =a*a*a+b*b*b;
writeln(c);
end.
2)var a,b,c: integer;
d: real;
begin
readln(a,b,c);
if (a< 0) or (b< 0) or (c< 0) then d: =abs(a+b+c)
else d: =sqrt(a+b+c);
writeln(d: 0: 2);
end.
3)var a,b,c: integer;
begin
readln(a,b,c);
if (a*b*c< 0) then begin a: =a*a; b: =b*b; c: =c*c; end
else begin a: =abs(a); b: =abs(b); c: =abs(c); end;
writeln( a, ' ', b, ' ', c);
end.
вот так вот.
