Блог учителя Информатики

Решение задачи Begin13


Условие задачи:

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


uses
  PT4;

const
  pi = 3.14;

var
  r1, r2, s1, s2, s3: real;

begin
  Task('Begin13');
  read(r1, r2);
  s1 := pi * sqr(r1);
  s2 := pi * sqr(r2);
  s3 := s1 - s2;
  write(s1, s2, s3);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий