Предмет: Информатика,
автор: oxxi05
составить программу с функцией для вычисления периметра квадрата
Ответы
Автор ответа:
0
Var L : Real;
Function PerKv(a : Real) : Real;
Begin
PerKv:=a*4;
end;
Begin
Write('Сторона квадрата: '); Readln(L);
Write('Периметр квадрата: ',PerKv(L));
end.
Function PerKv(a : Real) : Real;
Begin
PerKv:=a*4;
end;
Begin
Write('Сторона квадрата: '); Readln(L);
Write('Периметр квадрата: ',PerKv(L));
end.
Похожие вопросы
Предмет: Английский язык,
автор: 20003454
Предмет: Литература,
автор: KiraBerling
Предмет: Русский язык,
автор: guliya144
Предмет: Математика,
автор: zaicangaa
Предмет: Математика,
автор: koteyka02123