Question

Информатика. Помогите пожалуйста, ПАСКАЛЬ.

Answer 1

Ответ:

const Pi = 3.14;

var D:integer;

S,r:double;

begin

 read(d);

 r:=0.5*d;

 s:=Pi*sqr(r);

 writeln(s);

end.

var a,b,p:integer;

begin

 read(a,b);

 if (a*b) < 0 then p:=(a*b)*-2

 else

   p:=(a*b)*3;

 writeln(p);

end.

var x,y:real;

begin

read(x);

if x<=1 then y:=3*x+5

else

  if x>=1 then y:=sqrt(7*x-6,35);

writeln(y);

end.