Информатика

Гала

22 февраля, 15:49

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

1) program perimetr;

var

b, h, p:integer;

begin

write ('b=');

readln (b);

write ('h=');

readln (h);

writeln ('p=', p);

readln;

end.

2) program perimetr;

var

begin

write ('b=');

readln (b);

write ('h=');

readln (h);

p:=2 * (b+h);

writeln ('p=', p);

readln;

end.

3) program perimetr;

var

b, h, p:integer;

begin

write ('b=');

readln (b);

write ('h=');

readln (h);

p:=2 * (b+h);

writeln ('p=', p);

readln;

end.