Задача в паскале. Вывести на экран в порядке возрастания все цифры, не являющиеся цифрами данного десятичного натурального числа (переменной целого типа). Например, число 125657 не содержит цифры: 0, 3, 4, 8, 9.
begin readln(n); s := inttostr(n); for c := '0' to '9' do begin b := true; for i := 1 to length(s) do if s[i] = c then begin b := false; break; end; if b then writeln(c); end;
end.
2 votes Thanks 1
АлександрР
вместо s := inttostr(n); надо str(n,s);
archery
ну видать в разных средах разработки по разному
Answers & Comments
Verified answer
Vars: string;
i, n: integer;
c: char;
b:boolean;
begin
readln(n);
s := inttostr(n);
for c := '0' to '9' do
begin
b := true;
for i := 1 to length(s) do
if s[i] = c then begin
b := false;
break;
end;
if b then writeln(c);
end;
end.