Question

Program perime; var a,b,p:integer; begin write('введите длину и ширину'); read(a,b); P:=(a+b)*2; writeln('p=',p); end. Изменить последнюю строчку чтобы было P=2*(3+4)=14

Answer 1

Program perimetr;

var a,b,P: integer;

begin

writeln('Введите длину и ширину: ');

readln(a,b);

P:=(a+b)*2;

writeln('P=2*(',a,'+',b,')=',P);

end.

Answer 2

Программа должна выглядеть следующим образом, чтобы значение переменной P было равно 14:

pascalCopy code
Program perime;
var
  a, b, p: integer;

begin
  write('Введите длину и ширину: ');
  read(a, b);
  P := 2 * (a + b);
  writeln('P = ', P);
end.

Здесь мы изменяем формулу расчета переменной P, чтобы она соответствовала требуемому результату.