Question

27 БАЛЛА m=a+b/2, s=1/2*a*h расписать в паскале

Answer 1

var m,a,b,h,s:real;
begin
writeln (a,b,h);
readln (a,b,h);
m:=(a+b)/2;
s:=0.5*a*h;
writeln (m);
writeln (s);
end.