составить программу с функцией для вычисления периметра квадрата
Answers & Comments
APALoff
Var L : Real; Function PerKv(a : Real) : Real; Begin PerKv:=a*4; end; Begin Write('Сторона квадрата: '); Readln(L); Write('Периметр квадрата: ',PerKv(L)); end.
Answers & Comments
Function PerKv(a : Real) : Real;
Begin
PerKv:=a*4;
end;
Begin
Write('Сторона квадрата: '); Readln(L);
Write('Периметр квадрата: ',PerKv(L));
end.