Сделайте кто-нибудь програмку пожалуйста, турбо паскаль 7.1 вообщем не мое

Сделайте кто-нибудь програмку пожалуйста, турбо паскаль 7.1 вообщем не мое

Задать свой вопрос
1 ответ
Program krug;
   var r, s, l: real;
begin
   write('Введите радиус '); readln(r);
   s:=pi*sqr(r); writeln('Площадь круга - ',s:5:3);
   l:=2* pi*r; writeln('Длина окружности - ',s:5:3);
end.

можно отыскать площадь круга и по-иному: s:=pi*r*r; - это зависит от того, как вас учили
Lidija Gashutina
спасибо большое:*
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт