Решить с case of в зависимости от введенной цифры вычислить : 1 - длину окружности , 2 - площадь круга , 3 - объем цилиндра , 4 - объем параллелепипеда .

Const   pi=3.1415926598; var   c: integer;   r,a,b,h: real; begin     writeln('введите код вычисляемой величины: ');     writeln('1 - длина окружности');     writeln('2 - площадь круга');     writeln('3 - объем цилиндра');     writeln('4 - объем параллелепипеда');     write('-> '); read(c);     case c of     1: begin               write('введите радиус окружности: '); read(r);               writeln('длина окружности равна ',2*pi*r)           end;     2: begin               write('введите радиус круга: '); read(r);               writeln('площадь круга равна ',pi*r*r)           end;     3: begin               write('введите радиус и высоту цилиндра: '); read(r,h);               writeln('объем цилиндра равен ',pi*r*r*h)           end;     4: begin               write('введите длину, ширину и высоту параллелепипеда: '); read(a,b,h);               writeln('объем параллелепипеда равен ',a*b*h)           end     end end. пример работы введите код вычисляемой величины: 1 - длина окружности 2 - площадь круга 3 - объем цилиндра 4 - объем параллелепипеда -> 3 введите радиус и высоту цилиндра: 5 18.3 объем цилиндра равен 1437.2786418585

3, 4, 2, 1 & (конъюнкция) - меньше всего ответов   | (дизъюнкция) - ответов больше