Задача.
Найти площадь кольца, внутренний радиус которого R1, а внешний -R2. (R2>R1)

2

Ответы и объяснения

2013-12-02T11:58:35+00:00
Program zadacha;
Var R1, R2, S :real;
Begin
Writeln ('Введите радиусы');
Readln(R1,R2);
S:=(sqr(pi)*R2)-(sqr(pi)*R1);
Writeln (S);
end.
2013-12-02T12:06:34+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Немного ошиблась Анастасия09, правильно так
Program zadacha;
Var R1, R2, S :real;
Const pi = 3.1415926;
Begin
Writeln ('Введите радиусы');
Readln(R1,R2);
S:=(sqr(R2)*pi)-(sqr(R1)*pi);
Writeln (S);
end.