Question

помогите пожалуйста, даю 35 баллов! на Паскале

Answer 1

Ответ:

Объяснение:

1)

var  a,b,c,d : real;

begin

   read(a,b);

   c:=a*a+b*b;

   d:=sqrt(c);

   writeln(d);  

end.

2)

var  a :  integer;

begin

   read(a);

   if a>0 then a:=a+5 else a:=a-5;

   writeln(a);

end.