Примерное решение задачи 17 на Паскале. Program {имя программы;не больше 8 символов};
Const pi=3.14;
Var r1,r2,h,V:real;
Begin
write('Введите радиус основания r1=');
read(r1);
write('Введите радиус вершины r2=');
read(r2);
write('Введите высоту h=');
read(h);
V:=pi*h*((SQR(r1)+SQR(r2)+r1*r2)/3);
writeln('Обьем равен ',V:3:2);
End.
Насчет 30 задачи нужно пояснение
Quote
квадратные скобки эт выделение целой части? или просто разновидность скобок? или это модуль вообще?