Question

Определите площадь и периметр прямоугольника со сторонами а и b. Через паскаль

Answer 1

program area;
var
a:integer; // сторона а
b:integer; // сторона b
S:integer; // площадь прямоугольника
P:integer; // периметр прямоугольника 
begin
write("Введите а: "); // выводим сообщение 
readln(a); // получаем значение а
write("Введите b: "); // выводим сообщение 
readln(b); // получаем значение  b
S:=a*b; // вычисляем площадь
P:=a*2+b*2;  // вычисляем периметр
write("Площадь равна:", S); // выводим сообщение 
write("Периметр равен:", P); // выводим сообщение 
end.