Ответы
Ответ дал:
0
Освежил память 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.
Ответ дал:
0
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.
var V,R,H:real;
n:=3.14;
begin
writeln('Введите радиус основания конуса, м');
readln (R);
writeln('Введите высоту конуса, м');
readln (H);
V:=R*R*H*n/3;
writeln('Объем конуса равен ',V, ' м.куб.');
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад