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

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

1. var a, tmp:integer;var b:boolean;beginb:=false;readln(a);tmp := a mod 10; a:= a div 10;while a > 0 dobegin 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;beginb:=false;readln(a);while a > 0 dobegin 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.