Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Вычислить длину окружности и площадь круга. радиус должен вводиться с клавиатуры

Ответ оставил Гость

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.