Написать программу нахождения периметра параллелограмма по известным сторонам 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.
var
b,h,p:integer;
begin
write('b=');
readln(b);
write('h=');
readln(h);
p:=2*(b+h);
writeln('p=',p);
readln;
end.
Пример:
b=5
h=4
p=18