Помогите, прошу! Программирование на языке Pascal, используя Case

Ввести число (от 1 до 4)

если число = 1 то вывести окружность,

если - 2, то вывести квадрат,

если - 3, вывести ромб,

если - 4, вывести параллелограмм.

Question

Информатика

Еммануил

25 мая, 05:53

Помогите, прошу! Программирование на языке Pascal, используя Case

Ввести число (от 1 до 4)

если число = 1 то вывести окружность,

если - 2, то вывести квадрат,

если - 3, вывести ромб,

если - 4, вывести параллелограмм.

+1

Ответы (1)

Знаете ответ на вопрос?

Марися · Answer 1

Var a:integer;

begin

write ('a = ') ;

readln (a) ;

case a of

1: writeln ('окружность') ;

2: writeln ('квадрат') ;

3: writeln ('ромб') ;

4: writeln ('параллелограмм') ;

else writeln ('ошибка ввода') ;

end;

end.

Пример:

a = 3

ромб