вычислить длину окружности и площадь круга. радиус должен вводиться с клавиатуры
Ответы на вопрос
Ответил SteelR
0
program round;
const pi = 3.14;
var R, S, l: real;
Begin
Write ('Введите радиус');
Read(R);
S := pi * sqr(R);
l := 2 * pi * R;
Writeln('Площадь круга ', S);
Writeln('Длина окружности ', l);
end.
const pi = 3.14;
var R, S, l: real;
Begin
Write ('Введите радиус');
Read(R);
S := pi * sqr(R);
l := 2 * pi * R;
Writeln('Площадь круга ', S);
Writeln('Длина окружности ', l);
end.
Новые вопросы