всё написал вот код
| Код |
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f1,f2:textFile;
str,strtmp,symb:string;
i,j,kol:integer;
mas:array of integer;
begin
assign(f1,'c:\temp\1.txt');
reset(f1);
assign(f2,'c:\temp\output.txt');
rewrite(f2);
while not eof(f1) do
begin
readln(f1,str);
for i:=1 to length(str) do
begin
if str[i]='(' then
begin
j:=i;
while true do
begin
inc(j);
if str[j]<>')' then strtmp:=strtmp+str[j]
else break;
end;
end;
if strtmp<>'' then
begin
kol:=strtoint(strtmp);
strtmp:='';
for j:=1 to kol do
strtmp:=strtmp+str[i-1];
write(f2,strtmp);
strtmp:='';
end;
end;
end;
closefile(f1);
closefile(f2);
end.
|
|