Question

СРОЧНО!!!!!!!! Задача С клавиатуры вводится длина прямоугольника. Известно, что его ширина в два раза меньше длины. Определите периметр прямоугольника. Sample Input: 18 Sample Output: 54
Язык паскаль

Answer 1

program ppch;

uses

crt;

var

d, p: real;

begin

writeln('Введите длину прямоугольника:');

readln(d);

p := 2 * d + d; // либо p:=3d;

writeln('Периметр: ', p);

readln;

end.