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