Задать вопрос Регистрация
Помочь другим

  • Дан радиус окружности. Найдите длину окружности и площадь круга. Ооочень срочно плииииз информатика

Ответы 1

  •  

    Program Circle;

    Uses crt;

    const pi=3.14; 

    var  C,r,S:real;

    begin

         clrscr;

         write('Введите радиус:');

         readln(r);

         C=pi*2*r;

         S=2*pi*(sqr(r));

         writeln('Площад круга равна:',S);

         writeln('Длина окружности равна:',C); 

     

          readkey;

    end. 

     

     

     

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years