NickGI
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Uses Crt;
var a,b : text;
i : byte;
s : string;
k : integer;
Begin
ClrScr;
Write('Input file name : ');
ReadLn(s);
assign(a,s);
{$I-}
reset(a);
{$I+}
If IOResult<>0 then begin
Writeln('File not found. Press Enter for Exit...');
readln;
Halt(1);
end;
ClrScr;
Write('Input new file name : ');
ReadLn(s);
assign(b,s);
rewrite(b);
k:=2;
While not EOF(a) do
begin
readln(a,s);
for i:=1 to length(s) do
if s[i]='a' then s[i]:='*';
writeln(b,s);
if (k<>2)and(k mod 2 <> 0) then writeln(b,'');
k:=k+1;
end;
Close(a);
Close(b);
End.
|
Всего записей: 10 | Зарегистр. 11-02-2007 | Отправлено: 21:10 24-02-2007 | Исправлено: NickGI, 21:11 24-02-2007 |
|
