Дан радиус окружности,найти длину окружности и площадь круга на языке программирования

Дан радиус окружности,отыскать длину окружности и площадь круга на языке программирования Pascal(паскаль)

Задать свой вопрос
1 ответ
Var r:integer; 
begin 
writeln('Введите радиус'); 
read(r); 
writeln('Длина окружности = ',2*pi*r); 
writeln('Площадь круга = ',pi*sqr(r)); 
end.
Белушенко Сашок
так ?
Роман Тепляшин
а там же присвоить значения надобно,типо pi:=3,14
Морданов Николай
а тогда будет так
Илья Лисютин
var r:integer; begin writeln('Введите радиус'); read(r); writeln('Длина окружности = ',2*pi*r); writeln('Площадь круга = ',pi*sqr(r)); end.
Никитка Нутович
ой
Валентина Ковалетова
const pi=3,14 var r:integer; begin writeln('Введите радиус'); read(r); writeln('Длина окружности = ',2*pi*r); writeln('Площадь круга = ',pi*sqr(r)); end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт