уже писал, но попал в баг(
так вот. в паскале это будет так:
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.
вот так вот.
ответ:
1. страх перед высотой, польза - человек не будет рисковать и подходить близко к краю опасных высоких объектов., вред - не сможет такой человек выбрать профессию связанную с высотой.
2. страх потерять близких, польза - будет заботится о родных, вред - чрезмерная опека, излишняя забота.
3. страх перед неизвестными животными (например, змей). польза - не будет рисковать и трогать неизвестных животных ( и диких), не т риска заразиться болезнями, которые переносят болезни, вред - меньше получает информации, меньше развивается, меньше, появляются грыппы людей - которые уничтожают животных (некоторые из них приносят и пользу человеку)
объяснение:
