Это часть про разложение на цифры<span>uses crt;
var a,b,c,d,e,x:integer;
begin
write('vvedi chislo');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x mod 1000 div 100;
d:=x mod 100 div 10;
e:=x mod 10;
writeln (' ',a,' ',b,' ',c,' ',d,' ',e);</span><span>end.
</span>
1)1<span>462
2)</span>110101<span>100
3)</span>2<span>671
4)</span><span>101000111000
А последний в какой системе надо?
</span>
Создатель языка paskal:
б) Никлаус Вирт