разделить число например 1234, и переместить в четыре переменные

[pomoshnic]

Кто знает как разделить число например 1234, и переместить в четыре переменные?

[Neymexa]

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

Кто знает как разделить число например 1234, и переместить в четыре переменные?

в какой среде на каком языке

[Sazary]

Есть число chislo := 1234;
Есть 4 переменные: a,b,c,d

a := chislo mod 10;
chislo := chislo div 10;

После этого a = 4, а chislo = 123
Далее повторяешь для b,c и d

[pomoshnic]

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

в какой среде на каком языке

На Паскале.

[Sazary]

uses crt;
const N = 4;

var
chislo,i : integer;
mas : array[1..N] of byte;

begin
clrscr;

chislo := 1234;
for i:=1 to N do
 begin
 mas[i] := chislo mod 10;
 chislo := chislo div 10;
 end;
for i:=N downto 1 do
 writeln(mas[i]);

readln;
end.

Если нужно для числа побольше (например, 12345678), нужно изменить тип переменной "chislo" на longint.

[pomoshnic]

Огромное спасибо Sazary.