Составить алгоритм вычисления объёма конуса по формуле V=1/3ПRквадрат*H

Question

Составить алгоритм вычисления объёма конуса по формуле V=1/3ПRквадрат*H

Answer 1

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

Comments

Если хочется с обозначениями то

---

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

---

и никакого спасибо... мда