Question

de elaborat un program in turbo pascal utilizind functia care calculeaza perimetrul trapezului cu bazele a,b si laturile neparalele c,d,unde a,b,c,d apartin N*.

Answer 1

Program Augustin;
var
ab,bc,cd,da:integer;
p:integer;
begin
Writeln('Introdu Laturile Trapezului'):
readln(ab,bc,cd,da);
p:=ab+bc+cd+da;
Writeln('Perimetru=',p):
readln;
end.