Разработайте программу вычисления периметра прямоугольника. Если известно, что его длина на 3 см больше ширины
Var P,dlina,shirina:real;begin writeln('Введите длину'); readln(dlina); shirina:=dlina+3; P:=dlina*2+shirina*2; writeln('Периметр равен ',P);end.
var P,dlina,shirina:real; begin writeln('Введите длину'); readln(dlina); shirina:=dlina+3; P:=dlina*2+shirina*2; writeln('Периметр равен ',P); end.
так какое?
они одинаковы
просто во втором понятнее