Информатика

Мелеша

27 февраля, 03:25

Написать программу нахождения периметра параллелограмма по известным сторонам 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.