Задача [Pascal]

[[Smarik]]

Нжно решить задачу например я ввожу число 1367 программа должна выдать числа 024589 тоесть все числа кроме тех которые я ввел.

[AlDelta]

И какие мысли уже есть? Или решить нужно вместо тебя?

[Stilet]

var   s:string;i:integer;a:array[0..9] of boolean;
begin
 s:='159';
 for i :=1  to length(s)  do
 begin
  a[ord(s[i])-ord('0')]:=true
 end;
 for i:=0 to 9 do
  if not a[i] then write(i);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Plague]

попробуйте так:

dig='0123456789';
readln(s);
for i:=1 to length(s) do delete(dig,pos(s[i],dig),1);

без оптимизации алгоритма.

[[Smarik]]

Сообщение от Stilet

var   s:string;i:integer;a:array[0..9] of boolean;
begin
 s:='159';
 for i :=1  to length(s)  do
 begin
  a[ord(s[i])-ord('0')]:=true
 end;
 for i:=0 to 9 do
  if not a[i] then write(i);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Спасибо, работает.