Question

Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры значение радиуса шара и выводит на экран площадь его поверхности и объём.

Answer 1

• Var r:real;
• Begin
• write('Радиус шара равен: ');
• readln(r);
• writeln('Объём шара равен: ',4/3*3.14*r*r*r:0:1);
• writeln('Площадь шара равна: ',4*3.14*r*r:0:1);
• readln;
• End.