Назначение программы на Паскале…var a: string;b, i, - Ответ на вопрос по информатике №1272492

Вопрос

Назначение программы на Паскале…var a: string;b, i, st, n, s, x, k:integer;beginreadln (a); readln(b); n:=length(a); s:=0; st:=1;for i:=1 to n dobeginval (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b;end;writeln (s);end.

• переводить число a из b-ричной системы счисления (b<10) в 10-тичную
• находить цифровой корень числа а (цифровой корень числа получают суммированием, затем суммированием цифр полученной суммы и так до тех пор, пока вновь полученная сумма не будет сосотоять из одной цифры)
• получать сумму цифр числа
• переводить число a из 10-тичной системы счисления в b-ричную (b<10)

Ответ