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

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

Задать свой вопрос
Руслан Мателин
pascal abc.net пойдет?
2 ответа
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
Var a,n,p:integer;beginreadln(a);readln(n);p:=(a+n)*2;writeln(p);end. 


P.S. код на pascal abc.net
Danil Vanjaev
var a,n,p:integer;beginreadln(a);readln(n);p:=(a+n)*2;writeln(p);end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт