Вроде это чпу !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
Готово.......................
Надо скачать калькулятор, перевести в zip формат, после чего скачать apk
2)
позиционная 111 = сто одиннадцать
непозиционная III = 3 (римская) - т.е. единичку куда ни поставь - она везде единичка, в позиционных не так