Напишите программу которая определяет верно ли что введенное число содержит по крайней мере две одинаковые цифры возможно не стоящие рядом как например 212

var

s: string;

i, j, n: integer;

c: char;

flag: boolean;

begin

Write ('Введите произвольное число: '); Readln (s);

flag : = false;

n : = length (s);

i : = 1;

while (i < = n) and (not flag) do

begin

c : = s[i];

j : = i + 1;

while (j < = n) and (not flag) do

if s[j] = c then flag : = true else j : = j + 1;

if (not flag) then i : = i + 1

end;

if flag then Writeln ('Символ "', c, '" встречается больше одного раза')

else Writeln ('Все символы уникальны')

end.

Тестовое решение:

Введите произвольное число: - 1453.5462

Символ "4" встречается больше одного раза