Составьте программу, которая:в) заменяет в формуле, заданной с клавиатуры, круглые скобки...

Question

Составьте программу, которая:
в) заменяет в формуле, заданной с клавиатуры, круглые скобки на квадратные.

Answer 1

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.