Автор Мирослав Воеводин задал вопрос в разделе Другие языки и технологии
Pascal!? Как разбить любое число на отдельные цифры? и получил лучший ответ
Ответ от Gennady[гуру]
i := 0;
while n > 0 do begin
i := i + 1;
masNum[ i ] := n mod 10;
n := n div 10;
end;
Правда, будет обратный порядок следования разрядов.
masNum[1] = 3;
masNum[2] = 2;
masNum[3] = 5;
masNum[4] = 3;
masNum[5] = 2;
Если это принципиально, то элементы можно легко переставить.
>> символы не конвертируются
Кто такую глупость сказал? Например для символ "5" преобразование будет выглядеть так
d := Ord('5') - 48; {вместо 48 можете поставить Ord('0'); }
Ответ от Run[гуру]
Вот держи все легко и просто. А то я смотрю тут примеры через чур для новичка.
var
s:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do
begin
writeln('masNum',i,'=',s);
end;
readln;
readln;
Вот держи все легко и просто. А то я смотрю тут примеры через чур для новичка.
var
s:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do
begin
writeln('masNum',i,'=',s);
end;
readln;
readln;
Ответ от Вадим Кульпинов[гуру]
program program1;
var m:longint;masNum:array [1..256] of byte;i,c:byte;
begin
write('m=');
readln(m);
if m=0 then
begin
writeln('masNum[1]=0');
halt;
end;
if m<0 then m:=-m;
i:=1;
while m>0 do
begin
c:=m mod 10;
masNum:=c;
m:=trunc((m-c)/10);
i:=i+1;
end;
for c:=1 to i do writeln('masNum[',c,']=',masNum[c]);
end.
program program1;
var m:longint;masNum:array [1..256] of byte;i,c:byte;
begin
write('m=');
readln(m);
if m=0 then
begin
writeln('masNum[1]=0');
halt;
end;
if m<0 then m:=-m;
i:=1;
while m>0 do
begin
c:=m mod 10;
masNum:=c;
m:=trunc((m-c)/10);
i:=i+1;
end;
for c:=1 to i do writeln('masNum[',c,']=',masNum[c]);
end.
Ответ от 1_and_0[гуру]
mod div юзай их
23459 mod 10000 даст 2
(23459-2*10000)mod 1000 даст 3
думаю суть ясна. автоматизиру это в цикле и будет тебе счастье! )
mod div юзай их
23459 mod 10000 даст 2
(23459-2*10000)mod 1000 даст 3
думаю суть ясна. автоматизиру это в цикле и будет тебе счастье! )
Ответ от 1_and_0[гуру]
mod div юзай их
23459 mod 10000 даст 2
(23459-2*10000)mod 1000 даст 3
думаю суть ясна. автоматизиру это в цикле и будет тебе счастье! )
mod div юзай их
23459 mod 10000 даст 2
(23459-2*10000)mod 1000 даст 3
думаю суть ясна. автоматизиру это в цикле и будет тебе счастье! )
Ответ от Вадим Кульпинов[гуру]
program program1;
var m:longint;masNum:array [1..256] of byte;i,c:byte;
begin
write('m=');
readln(m);
if m=0 then
begin
writeln('masNum[1]=0');
halt;
end;
if m<0 then m:=-m;
i:=1;
while m>0 do
begin
c:=m mod 10;
masNum:=c;
m:=trunc((m-c)/10);
i:=i+1;
end;
for c:=1 to i do writeln('masNum[',c,']=',masNum[c]);
end.
program program1;
var m:longint;masNum:array [1..256] of byte;i,c:byte;
begin
write('m=');
readln(m);
if m=0 then
begin
writeln('masNum[1]=0');
halt;
end;
if m<0 then m:=-m;
i:=1;
while m>0 do
begin
c:=m mod 10;
masNum:=c;
m:=trunc((m-c)/10);
i:=i+1;
end;
for c:=1 to i do writeln('masNum[',c,']=',masNum[c]);
end.
Ответ от Run[гуру]
Вот держи все легко и просто. А то я смотрю тут примеры через чур для новичка.
var
s:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do
begin
writeln('masNum',i,'=',s);
end;
readln;
readln;
Вот держи все легко и просто. А то я смотрю тут примеры через чур для новичка.
var
s:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do
begin
writeln('masNum',i,'=',s);
end;
readln;
readln;
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Pascal!? Как разбить любое число на отдельные цифры?
как разбить четырехзначное число на цифры java
Допустим есть число int a, его надо разбить на цифры.
1 способ, если вы точно знаете,
подробнее...
спросили в Другое
16-ти ричная система исчисления
Шестнадцатеричная система счисления (шестнадцатеричные числа) — позиционная система счисления по
подробнее...
16-ти ричная система исчисления
Шестнадцатеричная система счисления (шестнадцатеричные числа) — позиционная система счисления по
подробнее...
спросили в Язык
Что такое компьютерный язык?
Тебе просто нужно изучить шестнадцатеричную и бинарную системы счисления
Там где что-то вроде
подробнее...
Что такое компьютерный язык?
Тебе просто нужно изучить шестнадцатеричную и бинарную системы счисления
Там где что-то вроде
подробнее...