[vers0]

Доброго времени суток.
Суть вопроса такова: Имеется переменная A0, которая равна, например, 63 (положительное, целое). Как разбить данное число на два 6 и 3 и присвоить их переменным A1 и A2?
Поиски привели к исходинкам на Паскале:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var   s:string;   a,t,i,sum:integer; begin   sum:=0;   readln(a); {ввод числа}   str(a,s);    {перевод из числа в строку}   for i:=1 to length(s) do    begin      val(s[i],t,err);   {перевод i-того символа строки в число}      sum:=sum+t;    end;   writeln(sum); end.

Суть ясна, перевод в строчный. Но здесь идет сумма этих цифр, как занести именно в переменные? Да и на Делфи вроде как inttostr используется при переводе в строчное.