Статистика
Главная » Статьи » Решения задач » Решения задач из задачника PascalABC

Begin13. Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2). Найти площади этих кругов S1 и S2, а также площадь S3 кольца, внешний

Begin13. Даны два круга с общим центром и радиусами R1 и R2 (R1 > R2). Найти площади этих кругов S1и S2, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R2: S1=pi·(R1)2, S2=pi·(R2)2, S3=S1–S2.
var r1, r2, s1, s2, s3: real;
begin
  write('Введите радиусы двух кругов ->');
  readln(r1, r2);
  s1:=pi*sqr(r1);
  s2:=pi*sqr(r2);
  s3:=s1-s2;
  writeln('Площадь первого круга = ', s1:6:2);
  writeln('Площадь второго круга = ', s2:6:2);
  writeln('Площадь кольца = ', s3:6:2);
end.

Категория: Решения задач из задачника PascalABC | Добавил: admin (25.01.2015)
Просмотров: 2782 | Рейтинг: 0.0/0
Всего комментариев: 0
Вход на сайт