Помогите составить программу на языке паскаль абц:
Вычислите площадь круга и длину окружности по исходным данным.

Const
  Pi = 3.141592;
var
  R, S, L : Real;
begin
  Write(Введите радиус круга: );
  ReadLn(R);

  S := Pi*sqr(R);
  L := 2*Pi*R;

  Writeln(S круга: , S:0:3);
  Writeln(Длина окружности: , L:0:3);
  Readln;
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!