Составьте программу, которая:в) заменяет в формуле, заданной с клавиатуры, круглые скобки на квадратные.
Составьте программу, которая:
в) заменяет в формуле, заданной с клавиатуры, круглые скобки на квадратные.
Гость
Ответ(ы) на вопрос:
Гостьvar a:string;
i:integer;
begin
Readln(a)
;for i:=1 to length(a) do
begin
if a[i]='(' then a[i]:='[';
if a[i]=')' then a[i]:=']';
end;
Writeln(a);
end.
Не нашли ответ?
Похожие вопросы