• Составить программу для вычисления площади круга, радиус которой нужно ввести с клавиатуры, число р считать равным 3,14

Ответы 1

  • Program CircleS;

    Uses Crt;

    const pi=3.14;

    var S,r:real;

    begin

         clrscr;

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

         readln(r);

         S:=pi*(r*r);

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

        readkey;

     

    end. 

     

     

     

     

     

     

     

     

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

Еще вопросы

Войти через Google

или

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

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

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