Question

Задача в файле,паскаль )

Answer 1

var

r: real;

n: integer;

const pi = 3.1415926;

begin

write('Введите значение радиуса ');

readln(R);

write('Введите номер задачи ');

readln(n);

if n = 1 then

   writeln('Длина окружности равна ', 2 * pi * r);

if n = 2 then

   writeln('Площадь круга равна ', pi * r * r);

if n = 3 then

   writeln('Объём шара равен ', 4 / 3 * pi * r * r * r);

if n = 4 then

   writeln('Площадь поверхности шара равна ', 4 * pi * r * r)

end.