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

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

Задать свой вопрос
2 ответа
Program n1;
var r: real;
begin
write('радиус, r=');
readln(r);
writeln('длина окружности: ',2*pi*r);
write('площадь круга: ',pi*r*r);
end.
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var r:=ReadReal('Введите радиус-gt;');
  writeln ('Длина окружности равна - ',2*3.14*r);
  writeln ('Площадь окружности одинакова - ',3.14*sqr(r));
end.

Пример:
Введите радиус-gt; 5
Длина окружности одинакова - 31.4
Площадь окружности равна - 78.5
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт