Решаем задачи Абрамян на Паскале. Begin 13

Begin13. Даны два круга с общим центром и радиусами $R_1$ и $R_2$ $(R_1 > R_2)$ . Найти площади этих кругов $S_1$ и $S_2$ , а также площадь $S_3$ кольца, внешний радиус которого равен $R_1$ , а внутренний радиус равен $R_2$ :
$S_1=\pi*(R_1)^2$ , $S_2=\pi*(R_2)^2$ , $S_3=S_1-S_2$ .
В качестве значения $\pi$ использовать 3.14.

Решение:

program Begin13;
var
  R1,R2,S1,S2,S3: Real;
begin
  Write('Введите длину радиуса R1: ');
  Readln(R1);
  Write('Введите длину радиуса R2: ');
  Readln(R2);
  S1:=3.14*sqr(R1);
  Writeln('Площадь первого круга равна: ',S1);
  S2:=3.14*sqr(R2);
  Writeln('Площадь второго круга равна: ',S2);
  S3:=S1-S2;
  Writeln('Площадь кольца равна: ',S3);
end.

program Begin13;

var

R1,R2,S1,S2,S3: Real;

begin

Write('Введите длину радиуса R1: ');

Readln(R1);

Write('Введите длину радиуса R2: ');

Readln(R2);

S1:=3.14*sqr(R1);

Writeln('Площадь первого круга равна: ',S1);

S2:=3.14*sqr(R2);

Writeln('Площадь второго круга равна: ',S2);

S3:=S1-S2;

Writeln('Площадь кольца равна: ',S3);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Begin 13

Комментарии:

Комментарии 2

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