Formulele:
P=2(L+l) (perimetru)
A=a*b (aria)
Program:
var
a,b,n,p:integer;
begin
n:=800;
b:=400;
p:=n+n+b+b; // sau p:= 2*(n+b)
a:=n*b;
writeln('Perimetru=',p,' cm');
writeln('Aria=',a,' cm^2');
end.
Pseudocod:
Inceput
Lui n atribuiei 800;
Lui b atribuiei 400;
Calculeaza perimetrul;
Calculeaza aria;
Afseaza perimetru;
Afiseaza arai;
Sfarsit .
Date de intrare: 400 si 800
Date de iesire: 2400 si 320000
