unit Unit3;

interface
type
Tmas=array[1..40] of string;
Tm=array[1..40] of integer;
procedure massiv_slov(var f:textfile; var masst:Tmas; var k:integer; n:integer);
procedure udal__pustuh_strok(var f,f2:textfile);
procedure kolich_zifr_v_stroke(var f:textfile; var a:Tm; var k:integer);

implementation

procedure kolich_zifr_v_stroke(var f:textfile; var a:Tm; var k:integer);
var i,n:integer;
s:string;
begin
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,s);
k:=k+1;
n:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
n:=n+1;
a[k]:=n;
end;
closefile(f);
end; // kolich_zifr_v_stroke

procedure massiv_slov(var f:textfile; var masst:Tmas; var k:integer; n:integer);
var i:integer; //n - заданная длина слова
s,st,st1:string;
begin
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,s);
s:=s+' ';
while pos(' ',s)>0 do
delete(s,pos(' ',s),1);
repeat
if s[1]=' ' then
delete(s,1,1);
st1:=copy(s,1,(pos(' ',s)-1));
delete(s,1,pos(' ',s));
if length(st1)=n then
begin
k:=k+1;
masst[k]:=st1;
end;
until length(s)=0;

end;
closefile(f);
end; // massiv slov

procedure udal__pustuh_strok(var f,f2:textfile);
var i:integer;
s:string;
begin

reset(f);
rewrite(f2);
while not eof(f) do
begin
readln(f,s);
if length(s)>0 then
writeln(f2,s);
end;
closefile(f);

end; // udalenie pustuh strok






end.





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