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.