Question

Pascal. сделайте пожалуйста

Answer 1

Ответ:

Pascal

var a:integer;

begin

 readln(a);

(*задание 1*)  

 writeln('Второе число=',(a div 10) mod 10);

(*задание 2*)    

 writeln('3a=',3*a);

 writeln('10a=',10*a);

end.

------------------------------------------------------------------

var a,b:integer;

begin

 readln(a,b);

(*задание 3*)  

 writeln('Периметр=',sqrt(sqr(a)+sqr(b))+a+b);

 writeln('Площадь=',a*b/2);

end.

-----------------------------------------------------------------------

var x:integer;

begin

 readln(x);

(*задание 4*)  

 writeln('Y=',sqr(sqr(x))+sqrt(2*x)-1/(2*x));

end.