• ПОМОГИТЕ! ТОЛЬКО НУЖНО РЕШИТЬ НЕ ЧЕРЕЗ if, A ЧЕРЕЗ CASE1. Пользователь вводит неотрицательное однозначное число A. Написать программу:
    вычисляющую в случае ввода 1 - площадь круга с радиусом A,
    вычисляющую в случае ввода 2 - площадь квадрата со стороной A,
    вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной A,выдающую сообщение «нужно ввести число 1, 2, 3» в остальных случаях.

Ответы 1

  • var a:integer;s:real;beginreadln(a);case a of1: begin s:=pi*a*a; writeln(s); end;2: begin s:=a*a; writeln(s); end;3: begin s:=a*a*sqrt(3)/4; writeln(s); end;else writeln('нужно ввести число 1, 2, 3');end;end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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