File5. Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле. Если файла с таким именем не существует, то вывести –1.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | program File5; var S: String; F: File of Integer; i,Num: integer; begin Write('S: '); Readln(S); Num:=0; Assign(F,S); {$I-} Reset(F); {$I+} if IOResult<>0 then Writeln(-1) else begin while not eof(F) do begin Read(F,i); writeln(i); inc(Num); end; end; Writeln(Num); Close(F); end. |
Добавьте c#
C++ SAlom
с++