Помогите составить программу на языке паскаль абц:Вычислите площадь круга и длину окружности по исходным данным.
Помогите составить программу на языке паскаль абц:
Вычислите площадь круга и длину окружности по исходным данным.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы