Предмет: Информатика,
автор: 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.
Похожие вопросы
Предмет: Алгебра,
автор: anafrebi
Предмет: Физика,
автор: illyashtepa9
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: varuny