Напишите прогу

[Dimapokal]

Нужна прога которая из текстового файла input.txt зчитывает количество чисел(не цифр, а именно чисел) и ответ записывает в файл output.txt!!!

эта прога решает- буду ли я дальше учится в универе!!! помогите кто чем может!!! плиз.......

 

[BurcevD]

Вот держи

Var F:TextFile;
S:String;
Total:Integer;

Function CalcNumbers(S:String):Integer;
Var R:Integer;
W:string;
StartX, EndX, x:Integer;

function Check(S:string):Boolean;
Var i:Integer;
R:Boolean;
Begin
r:=true;
For i:=1 to Length(S) do
if (s[i]<'0')or(s[i]>'9') then r:=false;
Result:=r;
End;

Begin
r:=0;
S:=' '+S+' ';
for x:=2 to Length(S)-1 do
begin
if (s[x-1]=' ')and(s[x]<>' ') then Startx:=x;
If (s[x]<>' ')and(s[x+1]=' ') then
begin
EndX:=x;
If check(Copy(s,StartX, EndX-StartX+1)) then Inc(R);
end;
end;
Result:=r;
End;

Begin
Assign(F,'Input.txt');
Reset(F);
Total:=0;
While not EOF(F) do begin
Readln(f,s);
Total:=Total+CalcNumbers(S);
end;
Close(F);
ASsign(F,'Output.txt');
Rewrite(F);
Writeln(f,Total);
Close(f);
End.

 

[etc]

эта прога решает- буду ли я дальше учится в универе

Однозначно в армию!

 

[Akupaka]

Афтар, читай подпись своего помощника! ты ему дважды должен!

BurcevD, а ты молодец! Мало кто вот так ринется помогать...