Найдите полграмму площади и пириметра
Var A,b,s,p:real;
begin
read (a b);
writeln (s=, a*b);
writeln (p=, 2*a+2*b);
end.
на примере прямоугольника
Оцени ответ
Вход
Регистрация
Задать вопрос
Var A,b,s,p:real;
begin
read (a b);
writeln (s=, a*b);
writeln (p=, 2*a+2*b);
end.
на примере прямоугольника