program qw; var a,b,h,s:real; begin; writeln('Введите длину оснований и высоту: '); read(a,b,h); s:=(a+b)*h/2; write('Площадь трапеции равна ', s); end.
Второе:
program qe; var a,b,s:real; begin; write('Введите катеты треугольника: '); read(a,b); s:=0.5*a*b; write('Площадь треугольника равна ',s); end.
Answers & Comments
program qw;
var a,b,h,s:real;
begin;
writeln('Введите длину оснований и высоту: ');
read(a,b,h);
s:=(a+b)*h/2;
write('Площадь трапеции равна ', s);
end.
Второе:
program qe;
var a,b,s:real;
begin;
write('Введите катеты треугольника: ');
read(a,b);
s:=0.5*a*b;
write('Площадь треугольника равна ',s);
end.