Procedure Srar(var f:TextFile; var sr:real; var flag:boolean; var f3:textfile);
var i,x:integer;
s:real;
begin
Reset(f);
s:=0;
flag:=false;
i:=-1;
while not eof(f) do
begin
Read(f,x);
if (x mod 3=0) then
begin
s:=s+x;
i:=i+1;
end;
end;
if i>0 then
begin
sr:=s/i;
flag:=true;
end;
AssignFile(f3,'f3.txt');
Rewrite(f3);
writeln(f3,'srednee arifmeticheskoe ravno - ',sr:5:1);
Reset(f);
while not eof(f) do
begin
Read(f,x);
write(f3,' ',x);
end;
CloseFile(f3);
end;

var f1,f3:textfile;
sr1:real;
flag1:boolean;
begin
AssignFile(f1,'file1.txt');
Srar(f1,sr1,flag1,f3);
AssignFile(f1,'f3.txt');
if flag1 then writeln('srednee arifmeticheskoe ravno - ',sr1:5:1)
else writeln('net chisel, kratnix 3');
readln;
end.

function prov(st:string):boolean;
var flag:boolean; z,i:integer; p:set of char;
begin
flag:=true;
p:=[];
z:=0;
for i:=1 to length(st) do
begin
if not(st[i] in p) then
begin
p:=p+[st[i]];
end
else
z:=z+1;
p:=p+[st[i]];
if z>=1 then
begin
flag:=false;
break
end;
end;
kol:=flag;
end;


Procedure CreateTF(var f:textfile); {SoZdanie}
var i,k:integer; st:string;
begin
rewrite(f);
write('vvedite kol-vo strok - ');
readln(k);
for i:=1 to k do
begin
writeln('vvedite ',i,' stroku - ');
readln(st);
if (prov(st)=false) then
begin
writeln(f,' ',st);
end;
end;
CloseFile(F);
end;

var f:textfile;
begin
assignfile(f,'file1.txt');

createtf(f); { TODO -oUser -cConsole Main : Insert code here }
end.

procedure skan(var f:TextFile; var st:string); (1 по рейтингу)
begin
reset(f);
readln(f,st);
closefile(f);
end;

procedure new(var f:TextFile; st1,st2:string);
begin
rewrite(f);
writeln(f,st1);
writeln(f,st2);
closefile(f);
end;

var
f1,f2,f3:TextFile;
st1,st2:string;

begin

assign(f1,'f1.txt');
assign(f2,'f2.txt');
assign(f3,'f3.txt');
skan(f1,st1);
skan(f2,st2);
new(f3,st1,st2);

end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.