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

1

Ответы и объяснения

2013-10-04T17:13:13+04:00
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.