Var radius: Integer; begin Read(radius); if(radius<0) then WriteLn('Радиус не может быть отрицателен') else Writeln(4/3* pi * exp(ln(radius) * 3)); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
