Question

Закодируй числовую информацию с помощью цифрового алфавита, состоящего из двух знаков-цифр 0, 1.
один - 1
три - 11
пять - ?
шесть - ?
десять - ?

Answer 1

var
a:integer;
begin 
readln(a); 
a:=a mod 1000; 
a:=a mod 100;
a:=a div 10; 
writeln(a); 
end.

Answer 2

var
a:integer;
begin 
readln(a); 
a:=a mod 1000; 
a:=a mod 100;
a:=a div 10; 
writeln(a); 
end.