Ответ: Program algoritm;var V,R,H:real;n:=3.14;beginwriteln(‘Введите радиус основания конуса, м’);readln (R);writeln(‘Введите высоту конуса, м’);readln (H);V:=R*R*H*n/3;writeln(‘Объем конуса равен ‘,V, ‘ м.куб.’);end.
Ответ: Освежил память xDProgram algoritm;var V,R,H:real;n:=3.14;beginwriteln(‘Введите радиус основания конуса’);readln (R);writeln(‘Введите высоту конуса’);readln (H);V:=R*R*H*n/3;writeln(‘Объем конуса равен’,V);end.