Question

в зависимости от введенного числа 1,2,3 программа должна вычислять длину окружности;площадь круга;объём цилиндра.
C=2πR
S=πR2
V=πR2H

Answer 1

var k,r,h:integer;
begin
writeln('1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра');
write('k = ');
readln(k);
case k of
1,2: begin write('R = '); readln(r); end;
3: begin write('R, h: '); readln(r,h); end;
end;
case k of
1: writeln('C = ',2*pi*r:5:3);
2: writeln('S = ',pi*r*r:5:3);
3: writeln('V = ',pi*r*r*h);
else writeln('Ошибка ввода');
end;
end.

Пример:
1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра
k = 2
R = 5
S = 78.540