Определить из каких цифр состоит десятизначное число

Паскаль

программа + блок-схема

1

Ответы и объяснения

2013-05-08T16:38:00+00:00

var n:integer;
x1,x2,x3,x4,x5,x6,x7,x8,x9,x10:integer;
begin
read(n);
x1:=n div 1000000000;
x2:=n mod 1000000000 div 100000000;
x3:=n mod 100000000 div 10000000;
x4:=n mod 10000000 div 1000000;
x5:=n mod 1000000 div 100000;
x6:=n mod 100000 div 10000;
x7:=n mod 10000 div 1000;
x8:=n mod 1000 div 100;
x9:=n mod 100 div 10;
x10:=n mod 10 div 1;
writeln('1 = ',x1);
writeln('2 = ',x2);
writeln('3 = ',x3);
writeln('4 = ',x4);
writeln('5 = ',x5);
writeln('6 = ',x6);
writeln('7 = ',x7);
writeln('8 = ',x8);
writeln('9 = ',x9);
writeln('10 = ',x10);
end.