Question

помогите пожалуйста!!!! 9 класс

Answer 1

Ответ:

var a,b,h,s:real;

begin

 read(a,b,h);

 s:=((a+b)/2)*h;

 writeln(s);

end.

var a,x,y:real;

begin

 read(x,y);

 a:=(3+sqr(y))/(1+sqr(x)*abs(y-x));

 writeln(a);

end.

var a,i,s:integer;

begin

 s:=1;

 read(a);

 while a>0 do

 begin

   s:=s*(a mod 10);

   a:=a div 10;

 end;

 writeln(s);

end.

Объяснение: