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

katysid155 katysid155    2   10.09.2019 06:30    5

Ответы
Ксеня228 Ксеня228  07.10.2020 04:45
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
ПОКАЗАТЬ ОТВЕТЫ
KOROTKOVAKATA KOROTKOVAKATA  07.10.2020 04:45
Var a,n,p:integer;beginreadln(a);readln(n);p:=(a+n)*2;writeln(p);end. 

P.S. код на pascal abc.net
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика