Question

Zapisz w języku wysokiego poziomu (używając języka PASCAL) program obliczający pole powierzchni prostokąta i obwód prostokąta.

W załączniku przykład jak ma to wyglądać :)

Answer 1

Var
 a,b:integer;

Begin
 ReadLn(a,b);
 WriteLn('Obwod: ',a*2+b*2);
 WriteLn('Pole: ',a*b);
 ReadLn;
End.

Answer 2

Program suma;
Uses Crt;
Var
a,b,s:integer;

Begin
ClrScr;
WriteLn('Ten program oblicza pole prostokąta o podanych ',
'długościach bokow.');
Write('Podaj nieujemną długość boku a=');
ReadLn(a);
Write('Podaj nieujemną długość boku b=');
ReadLn(b);
s:=a*b;
WriteLn;
WriteLn('Pole prostokąta wynosi ',s);
WriteLn('Naciśnij klawisz ENTER...');
ReadLn;
End.