profile
Опубликовано 5 лет назад по предмету Информатика от Асмодей

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

  1. Ответ
    Ответ дан sindb

    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.

Самые новые вопросы