alekskholod01
program qw; var a,b,h,s:real; begin; writeln('Введите длину оснований и высоту: '); read(a,b,h); s:=(a+b)*h/2; write('Площадь трапеции равна ', s); end.
ivanovaanastasiya533
Program sq; var a, b, p, s, s2 : real; begin Writeln('введите первый катет'); Read(a); Writeln('введите второй катет'); Read(b); s:=(a*b)/2; Writeln('площадь -', s); s2:=sqrt(sqr(a)+sqr(b)); p:=a+b+s2; Writeln('периметр -', p); end.
Answers & Comments
P=(a+b)*2
это или нет
var a,b,h,s:real;
begin;
writeln('Введите длину оснований и высоту: ');
read(a,b,h);
s:=(a+b)*h/2;
write('Площадь трапеции равна ', s);
end.
var a, b, p, s, s2 : real;
begin
Writeln('введите первый катет');
Read(a);
Writeln('введите второй катет');
Read(b);
s:=(a*b)/2;
Writeln('площадь -', s);
s2:=sqrt(sqr(a)+sqr(b));
p:=a+b+s2;
Writeln('периметр -', p);
end.