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

Begin14. Дана длина $$L$$ окружности. Найти ее радиус $$R$$ и площадь $$S$$ круга, ограниченного этой окружностью, учитывая, что $$L=2*\pi*R$$, $$S=\pi*R^2$$. В качестве значения $$\pi$$ использовать 3.14.

Решение:

$R=\frac{L}{\pi*2}$.

program Begin14;
var
  L,R,S: Real;
begin
  Write('Введите длинну окружности: ');
  Readln(L);
  R:=L/(3.14*2);
  Writeln('Радиус круга равен: ',R);
  S:=3.14*sqr(R);
  Writeln('Площадь круга равна: ',S);
end.

program Begin14;

var

L,R,S: Real;

begin

Write('Введите длинну окружности: ');

Readln(L);

R:=L/(3.14*2);

Writeln('Радиус круга равен: ',R);

S:=3.14*sqr(R);

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

end.

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

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

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

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