#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>
523 (делим на 16) 32 (делим на 16) 2
512 (=32*16) 32 (=16*2) 0
------------------------------------------------------------
11=B 0 2 523=20B(16)
20B =2*16^2+0*16^1+11*16^0=512+0+11=523
20B(16)=523
Вот, пришлось вспомнить былые деньки... Эх, ностальгия... Старость х)
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(ReadInteger('n='),t->Sqrt(t)); a.Println(', ')
end.
<u>Пример</u>
n= 13
0, 1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838, 3.3166247903554, 3.46410161513775
<u>Замечание:</u> массив индексирован от нуля.
Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b