Case 12. элементы окружности пронумерованы следующим образом: 1-радиус, 2-диаметр d=2*r, 3-длина l= 2*pi*r, 4-площадь круга s= pi*r2. дан номер одного из этих элементов и его значение. вывести значение остальных элементов данной окружности (в том же порядке). в качестве значения pi использовать 3,14. нужно эту решить в паскале.

Program   abc; const pi=3.14; var n: integer; z: real; r,d,l,s: real; begin writeln('введите номер элемента n='); readln(n); writeln('введите значение элемента z='); readln(z); case   n  of 1: begin r: =z; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 2: begin r: =z/2; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 3: begin r: =z/(2*pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 4: begin r: =sqrt(z/pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; else   writeln('ошибка'); end; end.

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

2.поиск текста на странице

4.изменение кодировки текста на странице

8.изменение размера шрифта для текста страницы