Предмет: Информатика,
автор: yury181
Помогите составить программу на языке паскаль абц:
Вычислите площадь круга и длину окружности по исходным данным.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Биология,
автор: stasmanilo0
Предмет: Математика,
автор: angelinabelguzova
Предмет: Литература,
автор: danyayarichevsky08
Предмет: Химия,
автор: Naimi