Question

Sa se scrie un program pascal care citind de la tastatura 2 valori :a,b(lungimea;înălțimea dreptunghiului) sa se afle aria și perimetrul.

Answer 1

Răspuns:

Program AriaPerimetrul;

var a,b,Aria,Perimetru:integer;

begin

write('Lungimea dreptunghi : ");

readln(a);

writeln;

write('Latimea dreptunghi : ");

readln(b);

Aria:=a*b;

Perimetru:=2*(a+b);

writeln('Aria=',Aria);

writeln('Perimetru=',Perimetru);

readln;

end.