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

  • Написать на языке PascalABC решение следующей задачи: найдите площадь кольца, ограниченного двумя окружностями.  Радиусы произвольные.

Ответы 1

  • program Площадь кольца;

    var A, B, C, S: real;

    begin

    writeln ('Радиус большего круга = ',A,' ');

    readln (A);

    writeln ('Радиус меньшего круга = ',B,' ');

    readln (B);

    C:=3,14 ;

    writeln ('\pi = ',C,' ');

    S:=C*SQR(A)-C*SQR(B);

    writeln ('S кольца = ',S,' ')

    end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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