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.
Answers & Comments
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.