Ответы
Ответ дал:
0
uses crt;
var r,h:integer;
begin
write('Введите радиус и высоту конуса: ');
read(r,h);
writeln('S = ',pi/3*sqr(r)*h:0:2);
end.
var r,h:integer;
begin
write('Введите радиус и высоту конуса: ');
read(r,h);
writeln('S = ',pi/3*sqr(r)*h:0:2);
end.
Вас заинтересует
1 год назад
1 год назад
9 лет назад