File6. Дано целое число K и файл, содержащий неотрицательные целые числа. Вывести K-й элемент файла (элементы нумеруются от 1). Если такой эле-мент отсутствует, то вывести –1.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | program File6; var S:String; F: File of Integer; K,i,Num:integer; begin Write('S: '); Readln(S); Write('K: '); Readln(K); Assign(F,S); Reset(F); Num:=1; while (not eof(F)) and (Num<=K) do begin Read(F,i); inc(Num); end; if Num-1<>K then Writeln(-1) else writeln(i); Close(F); end. |
нужно решение для Пайтона!!1!1!1
эх,жиза…
program file6;
var
f1:file of integer;
s:string;
k,a,d,num,n,i:integer;
begin
writeln(‘k,s’);
readln(k);
readln(s);
assign(f1,s);
{$I-}
reset(f1);
if IOResult=0 then
begin
n:=0;
while not eof(f1) do begin
read(f1,i);
if n=k then begin a:=i;d:=1; end;
inc(n,1);
end;
end;
close(f1);
if d=1 then writeln(‘k el-t=’,a) else writeln(‘-1’);
end.