|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Разбитие многозначного числа на отдельные цифры
Доброго времени суток.
Суть вопроса такова: Имеется переменная 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 используется при переводе в строчное. |