ПОМОГИТЕ! ТОЛЬКО НУЖНО РЕШИТЬ НЕ ЧЕРЕЗ if, A ЧЕРЕЗ CASE1. Юзер

Question

ПОМОГИТЕ! ТОЛЬКО НУЖНО РЕШИТЬ НЕ ЧЕРЕЗ if, A ЧЕРЕЗ CASE1. Юзер

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

Задать свой вопрос

Дарина Аксюк
Информатика
2019-08-17 15:35:28
4
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

морфологический разбор к слову из туч пожалуюста помогите мне

Загадка:де хлопчик,степ,лс,рчка,степ,лс,рчка.Яма.Впав вн в яму.Пдходить чаклун

1) задание - Прочитайте. Найдите антонимы.Книжка может обучить нас точно распознавать

Безотлагательно

к разности чисел 600 и а прибавь 200 при а =600.,

Помогите пожалуйста для чего создатель употребляет в ( Мёртвых душах) эпизод

Два парохода вышли сразу из 2-ух портов навстречу друг иную Скорость

найдите значения выражения (82) во второй степени1) 64

При каких значениях а функция y=-x^3+2x^2+ax не имеет критических точек (стационарных

В каком имени спрятаны местоимения: Маша, Сережа,Вася?

Лариса Ивачкова · Answer 1 · 2019-08-17 15:40:42+3:00

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.

О проекте

ПОМОГИТЕ! ТОЛЬКО НУЖНО РЕШИТЬ НЕ ЧЕРЕЗ if, A ЧЕРЕЗ CASE1. Юзер

Добро пожаловать!