Срочно !!! Сотавьте программу . Вычислить площадь и периметр при заданных длинах

Question

Срочно !!! Сотавьте программу . Вычислить площадь и периметр при заданных длинах

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,b,c,d:integer; begin Writeln ('Введите длину прямоугольника'); readln (a); Writeln ('Введите ширину прямоугольника'); readln (b); c:=(a+b)*2; d:=a*b; Writeln ('Периметр равен',с,'Площадь равна',d);