Составьте программку обретающую площадь круга и вычисляющую 30% от площади круга,

Составьте программу обретающую площадь круга и вычисляющую 30% от площади круга, используя подпрограмму ФУНКЦИЯ. Язык - паскаль. пи =3.14

Задать свой вопрос
1 ответ

function sq(x:real):real;

begin

sq:=pi*x*x;

end;

var r,s:real;

begin

write('R = ');

readln(r);

s:=sq(r);

writeln('30% от площади круга = ',0.3*s);

end.

Пример:

R = 2

30% от площади круга =  3.769911184307752e+00

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт