Question

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

Answer 1

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.