Question

помогите решить эти все 5 задач​

Answer 1

Ответ:

var

a,p:real;

begin

 readln(a);

 p:=4*a;

 writeln(p);

end;

 

var

a,s:real;

begin

 readln(a);

 s:=a*a;

 writeln(s);

end;

 

var

a,b,s,p:real;

begin

 readln(a);

 readln(b);

 s:=a*b;

 p:=2*(a+b);

 writeln(s);

 writeln(p);  

end;

 

var

d,L:real;

begin

 readln(d);

 L:=3.14*d;

 writeln(L);

end;

 

var

a,v,s:real;

begin

readln(a);

v:=a*a*a;

s:=6*a*a;

writeln(v);

writeln(s);  

end;