Вывести отдельно цифры числа

[ValentinBuruak]

Здравствуйте. Проблема в следующем. Допустим имеется любое целое число, например, 12345. Мне нужно считать, например, 1-ю, 2-ю, и 3-ю цифру слева и записать их в отдельные переменные. Как мне это сделать?

[Mandrivnyk]

перевести число в строку.

[Niro]

Тут есть два способа:
1) перевести число в строку, взять нужный символ строки и преобразовать его опять в число
2) используя оператор позволяющий найти остаток от деления и делить ваше число на 10, столько раз, скольки равен номер нужного число - 1,
например число 1234, нужно "вытащить" число 3 (оно третье слева),

значит делим (третья позиция -1) = 2 раза
1 раз -1234 / 10 (нацело) = 123, остаток 4
2 раз 123 /10 (нацело) = 12, остаток "3" - то, что нужно)

в паскале для первого случая это процедуры/ф-и str,val
для второго случая div, mod

Кстати подобных тем/заданий на форуме куча, не захотите сами писать, юзайте поиск

[ValentinBuruak]

Сообщение от Mandrivnyk

перевести число в строку.

Можно поподробнее объяснить что значит перевести в строку?

Niro А можете привести пример, используя div mod чтобы найти 3-ю цифру слева?

[temaps]

Сообщение от ValentinBuruak

А можете привести пример, используя div mod чтобы найти 3-ю цифру слева?

c:=12345;
c3:=(с div 100) mod 10;

[ValentinBuruak]

Сообщение от temaps

c:=12345;
c3:=(с div 100) mod 10;

Спасибо. А если число например 8-мизначное? Как это в программе необходимо прописать, чтобы учитывать это?

[Mandrivnyk]

Сообщение от ValentinBuruak

Спасибо. А если число например 8-мизначное? Как это в программе необходимо прописать, чтобы учитывать это?

вот именно поэтому проще сделать именно через перевод числа в строку.
насколько я понял, речь идет о паскале.
процедура Str()

[astecenko]

Выполняйте в цикле пока делимое не станет меньше 10, т.е. для Вашего примера
12345 mod 10 = 5
12345 div 10 = 1234
1234 mod 10 = 4
1234 div 10 = 123
123 mod 10 = 3
123 div 10 = 12
12 mod 10 = 2
12 div 10 = 1 < 10

Единственно что учитывайте ограничения типов данных, если у Вас гипотетически очень большие числа, не вписывающиеся в паскалевские типы данных то тогда лучше переводить в строку, как писали выше.

[temaps]

Сообщение от ValentinBuruak

Спасибо. А если число например 8-мизначное? Как это в программе необходимо прописать, чтобы учитывать это?

c:=12345678;
c3:=(с div 10000) mod 10;

Как вопрос задаёшь такой ответ и получаешь.
С числами бери способ astecenko
Со строкой:

...
s:string;
...
c:=12345678;
s:=inttostr(c);
c3:=strtoint(s[3]);

если у тебя Turbo Pascal 7.0 то там нет функции inttostr() там вместо неё процедура str() и нет strtoint() там опять же процедура val()

[SenseSoftware]

Может это и тупо, но я бы сделал как-нибудь так:
S-твоё число
a-3я с конца цифра
b-2я с конца цифра
c-последняя цифра
(это считать три цифры с конца)

var
a,b,c,s:integer;
g:string;
begin
g:=inttostr(s);
a:=strtoint(copy(g,lenght(g)-2,1);
b:=strtoint(copy(g,lenght(g)-1,1);
c:=strtoint(copy(g,lenght(g),1);
end;

а с начала строки так:
S-твоё число
a-1я цифра
b-2я цифра
c-3я цифра

var
a,b,c,s:integer;
g:string;
begin
g:=inttostr(s);
a:=strtoint(copy(g,1,1);
b:=strtoint(copy(g,2,1);
c:=strtoint(copy(g,3,1);
end;