Напишите программу, которая вычисляет периметр прямоугольника по двум его сторонам.
Заготовка
var ?:integer;
begin
read(?);
s:=???;
write(???):
?
Заготовка
var ?:integer;
begin
read(?);
s:=???;
write(???):
?
More Questions From This User See All
Answers & Comments
program perimetr;
var
p, a, b: integer;
begin
write ('Введите сторону a: '); readln(a);
write ('Введите сторону b: '); readln(b);
p := 2*(a+b);
write ('Периметр прямоугольника со стороной a=', a ,' и b=', b ,' равен: ', p);
end.