Question

составить программу на языке паскаль нохождения площади трапеции

Answer 1

uses crt;
vara,b,h,S:real;
begin
writeln('Поиск площади трапеции через основание и высоту');
writeln(); 
write('Введи основание а = '); 
readln(a); 
writeln(); 
write('Введи основание b = '); 
 readln(b); 
writeln();   
write('Введи высоту h = '); 
 readln(h);     
S:=h*(a+b)/2;     
writeln('Ответ: ',S);
end.