я пытался написать что - то вроди этого, но не делает она нужного сам не понимаю почему...помогите плз...
program asd;
Uses
CRT;
var
fil,
fout : Text;
count,
count2,
count3,
ts : Byte;
str,
rts : array [1..100] of String;
chp : char;
bol : Boolean;
begin
ClrScr;
Assign(fil, 'C:/12.txt');
Assign(fout, 'C:/123.txt');
Reset(fil);
ReWrite(fout);
ts := 1;
for count := 1 to 3 do
begin
Write('‚ўҐ¤ЁвҐ [',count,']=');
ReadLn(rts[count]);
end; bol := False;
while NOT EOF(fil) do
begin
ReadLn(fil, chp);
writeln(chp);
for count:= 1 to 3 do
begin
if chp = rts[count] then Bol := True;
if (count = 3) and (bol = False) then WriteLn(chp);
end;
end;
{ for count:= 1 to ts do
for count2:= 1 to length(str[count]) do
for count3:= 1 to 3 do
begin
chp := Copy(str[count2],count2,1);
if (count3 = 3) and (bol = False) then WriteLn(chp);
if chp = rts[count3] then bol := True;
end;
}
close(fout);
close(fil);
ReadKey;
end.
М | Используй теги кода Паскаля, а не Цитату. Lapp |