File7. Дан файл целых чисел, содержащий не менее четырех элементов. Вывес-ти первый, второй, предпоследний и последний элементы данного файла.
>Решение 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 File7; var S:String; F: File of Integer; i,Num,NumEnd,NumEnd1:integer; begin Write('S: '); Readln(S); Assign(F,S); Reset(F); Num:=1; while (not eof(F)) do begin Read(F,i); if Num<3 then Writeln(i); NumEnd1:=NumEnd; NumEnd:=i; inc(Num); end; Writeln(NumEnd1); Writeln(NumEnd); Close(F); end. |
Добавьте пожалуйста решения на С++ тоже
program file7;
var
f1:file of integer;
s:string;
k,a,d,num,n,i:integer;
begin
writeln(‘s’);
readln(s);
assign(f1,s);
{$I-}
reset(f1);
if IOResult=0 then
begin
k:=0;
while not eof(f1) do begin read(f1,i); inc(k,1);end;
close(f1);
reset(f1);
n:=1;
while not eof(f1) do begin
read(f1,i);
if ((n=1) or (n=2) or (n=k-1) or (n=k)) then begin writeln(‘i=’,i); end;
inc(n,1);
end;//endwhile
end;//endif
close(f1);
end.