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

ПОМОГИТЕ! ТОЛЬКО НУЖНО РЕШИТЬ НЕ ЧЕРЕЗ if, A ЧЕРЕЗ CASE1. Пользователь вводит неотрицательное однозначное число A. Написать программу: вычисляющую в случае ввода 1 - площадь круга с радиусом A, вычисляющую в случае ввода 2 - площадь квадрата со стороной A, вычисляющую в случае ввода 3 - площадь равностороннего треугольника со стороной A,выдающую сообщение «нужно ввести число 1, 2, 3» в остальных случаях.
Гость
Ответ(ы) на вопрос:
Гость
var a:integer; s:real; begin readln(a); case a of 1: 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы