Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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