Ответы
Ответ дал:
0
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.
begin
writeln (a,b,h);
readln (a,b,h);
m:=(a+b)/2;
s:=0.5*a*h;
writeln (m);
writeln (s);
end.
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад