Предмет: Информатика,
автор: iiigor
Программирование в паскаль abc.ОПЕРАТОР CASE
Ввести с клавиатуры левую скобку. Напечатать соответствующую ей правую.
Ответы
Автор ответа:
0
// PascalABC.Net 3.0, сборка 1066
var
c:char;
begin
Write('Введите левую скобку: '); Readln(c);
case c of
'(':Writeln(')');
'[':Writeln(']');
'{':Writeln('}');
else Writeln('неверный символ')
end
end.
var
c:char;
begin
Write('Введите левую скобку: '); Readln(c);
case c of
'(':Writeln(')');
'[':Writeln(']');
'{':Writeln('}');
else Writeln('неверный символ')
end
end.
Похожие вопросы
Предмет: Химия,
автор: Виталя123412
Предмет: Геометрия,
автор: Rufigufic
Предмет: Химия,
автор: CHERAzamm
Предмет: Математика,
автор: varuny