1. Словарь в компьютере или другом электронном устройстве. 2. Если переводить текст например с ангийского то некоторые слова надо переставлять и это иногда затрудняет, но всё же можно разобраться. 3. Словарь переводит отдельные слова в именительном падеже, а система перевода переводит слова, если встречаются выражения - переводит их не отдельными словами, а целиком. Кроме того, система перевода выставляет нужные падежи, правильно выставляет слова и старается подобрать набор слов наиболее литературно, но не всегда удачно.
Var i,n,fs,ls: integer; fsz,indf,indl: int64; f: file of integer; begin write('n = '); readln(n); // запись в файл целых чисел assign(f,'input.txt'); rewrite(f); for i:=1 to n do write(f,random(-3000,8000)); close(f); // замена элементов в файле assign(f,'input.txt'); reset(f); fsz:=FileSize(f); indf:=0; for i:=0 to fsz-1 do begin read(f,n); if ((n mod 2)<>0) and (indf=0) then begin indf:=i; fs:=n; end; if (n mod 2)=0 then begin indl:=i; ls:=n; end; end; reset(f); seek(f,indf); write(f,ls); reset(f); seek(f,indl); write(f,fs); close(f); end.
2. Если переводить текст например с ангийского то некоторые слова надо переставлять и это иногда затрудняет, но всё же можно разобраться.
3. Словарь переводит отдельные слова в именительном падеже, а система перевода переводит слова, если встречаются выражения - переводит их не отдельными словами, а целиком. Кроме того, система перевода выставляет нужные падежи, правильно выставляет слова и старается подобрать набор слов наиболее литературно, но не всегда удачно.
fsz,indf,indl: int64;
f: file of integer;
begin
write('n = '); readln(n);
// запись в файл целых чисел
assign(f,'input.txt');
rewrite(f);
for i:=1 to n do write(f,random(-3000,8000));
close(f);
// замена элементов в файле
assign(f,'input.txt');
reset(f);
fsz:=FileSize(f);
indf:=0;
for i:=0 to fsz-1 do
begin
read(f,n);
if ((n mod 2)<>0) and (indf=0) then
begin
indf:=i; fs:=n;
end;
if (n mod 2)=0 then
begin
indl:=i; ls:=n;
end;
end;
reset(f);
seek(f,indf);
write(f,ls);
reset(f);
seek(f,indl);
write(f,fs);
close(f);
end.