Напишите программу, которая зачисляет площадь и периметр прямоугольника по длинам двух его сторон

Question

Информатика

Калидка

5 мая, 04:10

Напишите программу, которая зачисляет площадь и периметр прямоугольника по длинам двух его сторон

+5

Ответы (1)

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

Владлена · Answer 1

Program pr;

uses crt;

Var a, b, p, s:real;

Begin

Writeln ('Введите сторону a') ;

readln (a) ;

Writeln ('Введите сторону b') ;

readln (b) ;

s:=a*b;

p:=2 * (a+b) ;

Writeln ('Площадь = ', s) ;

Writeln ('Периметр = ', p) ;

readln;

end.