Переделать программу в процедуру без параметров program pl_kruga; uses crt; var l,s,r: real; begin writeln(; readln(l); r: =l/2*3.14; s: =3.14*r*r; writeln(s: 4: 2); end.
262
266
Ответы на вопрос:
Program pl_kruga; uses crt; procedure skr(l: real; var s: real); var r: real; begin r : = l / 2 * pi; s : = pi * sqr(r); end; { а это вызов } var l, s: real; begin writeln(''); readln(l); skr(l, s); writeln(s: 4: 2) end.
Популярно: Информатика
-
Alikjon22.03.2021 22:27
-
VeronicaOgne17.11.2021 13:20
-
liskotovich20.08.2021 03:21
-
lemarakurtazhiv21.08.2022 13:10
-
viki2905110.04.2021 16:59
-
helpplease1414.02.2021 22:19
-
sait1424.05.2020 12:25
-
Rorschach00101.02.2021 00:51
-
dashalikhtina14.01.2021 16:57
-
ВаНяЛЕТОвальцев28.09.2020 23:12