var r:integer; l,s:real; const pi=3.1415; begin write('Введите радиус: '); readln(r); l:=2*pi*r; s:=2*pi*sqr(r); writeln('Длина окружности = ',l,#10,'Площадь круга = ',s); readln; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
