Question

Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. Например, 1234 - нет; 1224 - да. Обязательно должен присутствовать цикл с предусловием while <условие> do. Информатика. 8 класс. Паскаль ABC.

Answer 1

Var n:integer;var b:array[0..9] of boolean;var f:boolean;begin     f := false;     readln(n);     while n > 0 do           begin                if b[n mod 10] then                   begin f := true; break; end                else b[n mod 10] := true;                n := n div 10;           end;     if f then writeln('da') else writeln('net');end.