1) Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом.

2) Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры (не обязательно стоящие рядом).

1. var a, tmp:integer;

var b:boolean;

begin

b:=false;

readln (a) ;

tmp : = a mod 10; a: = a div 10;

while a > 0 do

begin

if tmp = a mod 10 then b : = true

else tmp : = a mod 10;

a : = a div 10;

end;

writeln (b) ;

end.

2. var a, i:integer;

var t:array[0 ... 9] of integer;

var b:boolean;

begin

b:=false;

readln (a) ;

while a > 0 do

begin

inc (t[a mod 10]) ;

a : = a div 10;

end;

for i:=0 to 9 do if t[i] > 1 then b : = true;

writeln (b) ;

end.