Предмет: Информатика, автор: oxxi05

составить программу с функцией для вычисления периметра квадрата

Ответы

Автор ответа: APALoff
0
Var L : Real;
Function PerKv(a : Real) : Real;
Begin
  PerKv:=a*4;
end;
Begin
  Write('Сторона квадрата: '); Readln(L);
  Write('Периметр квадрата: ',PerKv(L));
end.
Похожие вопросы
Предмет: Математика, автор: zaicangaa
Предмет: Математика, автор: koteyka02123