Илья
6 год назад
Составить алгоритм вычисления объёма конуса по формуле V = 1/3ПRквадрат*H
ОТВЕТЫ
Люцианович
Aug 8, 2019
Освежил память 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.
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.
62
Смежные вопросы:
