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