Ответ учителя по предмету Информатика
program TRAPECIYA;
var x1, x2 ,y1, y2, P, S:real;
begin
writeln(«Введите значение верхнего основания»);
readln(y1);
writeln(«Введите значение нижнего основания»);
readln(y2);
writeln(«Введите значение левой грани»);
readln(x1);
writeln(«Введите значение правой стороны»);
readln(x2);
P:=y1+y2+x1+x2;
S:=((y1+y2)/2)*sqrt(sqr(x1)-(sqr(sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2-y1)))
writeln(P);
writeln(S);
end
Похожие вопросы от пользователей