• Составить программу, которая по введенному номеру и величине радиуса вычисляла: 1 - длину окружности, 2 - площадь круга, 3 - объем шара.

Ответы 1

  • const  Pi=3.1416;var  n:integer;  r:real;begin  Write('Укажите вариант расчета и радиус: ');  Read(n,r);  case n of  1:Writeln('Длина окружности равна ',2*Pi*r);  2:Writeln('Пдощадь круга равна ',Pi*r*r);  3:Writeln('Объем шара равен ',4/3*Pi*r*r*r)  else Writeln('Вариант должет быть равен 1,2 или 3')  endend.ПримерУкажите вариант расчета и радиус: 3 11.7Объем шара равен 6708.8365344
    • Автор:

      herman
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years