Составить и записать программу: вычисляющу по 2 ум значения сторон прямоугольника его площадь и периметр (результат программы должен быть оформлен в виде:

Площадь прямоугольника равна ... кв. см

периметр прямоугольника равен ... см

Question

Информатика

Абакум

24 марта, 14:51

Составить и записать программу: вычисляющу по 2 ум значения сторон прямоугольника его площадь и периметр (результат программы должен быть оформлен в виде:

Площадь прямоугольника равна ... кв. см

периметр прямоугольника равен ... см

+2

Ответы (1)

Знаете ответ на вопрос?

Манюша · Answer 1

var a, b, p, s:integer;

begin

writeln ("Введите а: ") ;

readln (a) ;

writeln ("Введите b: ") ;

readln (b) ;

p = 2 * (a+b) ;

s = a*b;

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

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

readln;

end.