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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.