Вычислить объём конуса - Turbo Pascal

Формулировка задачи:

Напишите программу Pascal Вычислить объём конуса:

Код к задаче: «Вычислить объём конуса - Turbo Pascal»

textual
VAR
R,H,V:real;
begin
R := 10.88 / 1000;
H := 5.8 / 1000;
V := 1/3*pi*R*R*H;
writeln('V=',v:8:10);
readln;
end.

9   голосов, оценка 3.889 из 5


СОХРАНИТЬ ССЫЛКУ