Написать программу нахождения периметра прямоугольника по известным сторонам и ℎ ( и ℎ — целые числа, вводимые с клавиатуры). 1.program perimetr;
var
c,h,p:integer;
begin
write('c=');
readln(c);
write('h=');
readln(h);
p:=2*(c+h);
writeln('p=',p);
readln;
end.

2.program perimetr;
var
c,h,p:integer;
begin
write('c=');
readln(c);
write('h=');
readln(h);
writeln('p=',p);
readln;
end.

3.program perimetr;
var
begin
write('c=');
readln(c);
write('h=');
readln(h);
p:=2*(c+h);
writeln('p=',p);
readln;
end.

fgrtyrrrrty    3   07.05.2021 00:00    7