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

Question

Информатика

Селиван

18 марта, 20:07

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

+4

Ответы (1)

Знаете ответ?

Люба · Answer 1

Var L : Real;

Function PerKv (a : Real) : Real;

Begin

PerKv:=a*4;

end;

Begin

Write ('Сторона квадрата: ') ; Readln (L) ;

Write ('Периметр квадрата: ', PerKv (L)) ;

end.