Написать функцию которая убирает из введенного числа повторяющиеся цифры.
Задача решена с применением строк, поэтому публикуется в этом разделе.
program a1;
function sss(s1 : string) : string;
var
a : string[1];
a1: string;
i1,i2 : integer;
d : integer;
begin
i2 := 1; a1 := '';
repeat
d := 0;
a := s1[1];
delete(s1,1,1);
d := pos(a, s1);
if d = 0 then
begin
a1 := a1 + a;
end
else
begin
i1 := 1;
repeat
if a = s1[i1] then delete(s1, i1, 1)
else inc(i1);
until i1>length(s1);
end;
until s1 = '';
if a1 = '' then a1 := '0';
sss:=a1;
end;
var
s : string;
begin
writeln('Введи число.');
readln(s);
writeln(sss(s));
readln;
end.