Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.
#include <iostream>
<span>#include <iomanip>
</span><span>#include <fstream>
</span><span>using namespace std;
</span>int main() {
<span> int n;
</span><span> float s=0;
</span><span> ifstream f;
</span><span> f.open("input.txt");
</span><span> while(!f.eof()) {
</span><span> f>>n;
</span><span> while (n>0) { s+=n%10; n=n/10; }
</span><span> }
</span><span> f.close();
</span><span> cout<<s<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>