Есть ответ 👍

Переделать программу в процедуру без параметров 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
Посмотреть ответы 2

Ответы на вопрос:

Relig1d
4,7(62 оценок)

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.

вввбыьыддыдыжыжфхфь. удужвжуц

Популярно: Информатика