Написать программу нахождения периметра прямоугольника по известным сторонам a и n (a и n...

Question

Написать программу нахождения периметра прямоугольника по известным сторонам a и n (a и n — целые числа, вводимые с клавиатуры).

Comments

pascal abc.net пойдет?

Answer 1

Var a, n, p :integer;
begin
write('a =');
readln(a);
write('n =');
readln(n);
p:=2*(a+n);
writeln('Периметр = ',p);
end.

Пример:
a = 8
n = 5
Периметр = 26

Или так:
begin
  var a:=ReadInteger('a = ');
  var n:=ReadInteger('n = ');
  writeln('Периметр = ',2*(a+n));
end.

Пример:
a = 8
n = 5
Периметр = 26

Answer 2

Var a,n,p:integer;beginreadln(a);readln(n);p:=(a+n)*2;writeln(p);end. 


P.S. код на pascal abc.net

Comments

var a,n,p:integer;
begin
readln(a);
readln(n);
p:=(a+n)*2;
writeln(p);
end.