текстовый файл

[Jalgas-xan]

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var f,g:text;
s:string;
k,i:integer;
Begin
Assign(f,'in.txt');Reset(f);
While not Eof(f) do
Begin
readln(f,s);
For i:=1 to Length(s) do
if s[i] in ['0'..'9'] then inc(k);
End;
Assign(g,'out.txt');Rewrite(g);
writeln(g,k);
Close(f);Close(g);
writeln('Результат записан в файл');
readln;
End.
СДЕЛАЙТЕ ПОЖАЛУЙСТА БЛОК-СХЕМУ!!!

[BDA]

FCEditor Вам в помощь.