Составить 2 программы для расчета периметра и площади прямоугольника

Нахождение площади

var a, b, s:integer;

begin

writeln ('Введите A и B: ') ;

readln (a, b) ;

s:=a*b; / / формула

writeln ('Площадь прямоугольника равна: ', s) ;

end.

Нахождение периметра

var a, b, p:integer;

begin

writeln ('Введите A и B: ') ;

readln (a, b) ;

p:=2 * (a+b) ; / / формула

writeln ('Периметр прямоугольника равен: ', p) ;

end.

На паскале

Периметр:

{

int a, b;

cin >> a>>b;

a = (a*b) * 2;

cout << a <
return 0;

}

Площадь:

{

int a, b, c;

cin >> a>>b>>c;

a=a*b*c;

cout << a <
return 0;

}