Вывод чисел, отличных от введенных — Pascal(Паскаль)

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

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.

Похожие записи/страницы:

Leave a Comment

− 1 = 3