File4. Даны имена четырех файлов. Найти количество файлов с указанными именами, которые имеются в текущем каталоге.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | program File4; var S:String; F:File; i,Num:integer; begin Num:=0; for i:=1 to 3 do begin Write('S: '); Readln(S); Assign(F,S); {$I-} Reset(F); {$I+} if IOResult=0 then begin inc(Num); Close(F); end; end; Writeln(Num); end. |