Дан радиус окружности.Найти длину окружности и площадь круга(код Pascal)

Дан радиус окружности.Отыскать длину окружности и площадь круга(код Pascal)

Задать свой вопрос
1 ответ
Var r,c,s:real;
begin
readln(r);
c:=2*pi*r;
s:=pi*r*r;
writeln('C = ',c:5:2,' S = ',s:5:2);
end.

Пример:
3
C = 18.85 S = 28.27
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт