Задание:
Разработать программу для расчета площадиповерхности и объема шара известного радиуса.
Решение:
Uses crt; var r: integer; v,s: real; beginreadln (r); s: =4*pi*r*r; writeln (s); v: =4/3*pi*r*r*r; writeln (v); end.
Знаете другой ответ?
Разработать программу для расчета площадиповерхности и объема шара известного радиуса.
Uses crt; var r: integer; v,s: real; beginreadln (r); s: =4*pi*r*r; writeln (s); v: =4/3*pi*r*r*r; writeln (v); end.
Знаете другой ответ?