Вопрос Помогите с программированием. Очень нужно!

[ScorpOne]

1)Напишите программу, которая определяет, верно ли, что введенное число состоит из одинаковых цифр (например, 222)
2)Напишите программу, которая определяет, верно ли, что введеное число содержит две одинаковые цифры, стоящие рядом (например, 221)
!Паскаль!

 

[slaw]

Да, пожалуйста, мне не жалко. Но ведь засыпешься ты с этой программой, ой засыпешься: program Project2; type TCounters=array[0..9] of Integer; procedure ZeroCounters(var __Counters: TCounters); var n: integer; begin n:=SizeOf(TCounters); FillChar(__Counters, n, #0); end; procedure CountDigits(_i: Integer; var __Counters: TCounters); begin ZeroCounters(__Counters); while _i>0 do begin Inc(__Counters[_i mod 10]); _i:=_i div 10; end; end; function AllEqual(_i: Integer): Boolean; var Counters: TCounters; i, k:integer; begin CountDigits(_i, Counters); k:=0; for i:=0 to 9 do if Counters>0 then Inc(k); AllEqual:=k=1; end; function TwoInARow(_i: Integer): Boolean; var Previous, Current: integer; begin TwoInARow:=false; Previous:=-1; while _i>0 do begin Current:=_i mod 10; _i:=_i div 10; TwoInARow:=Current=Previous; if Result then Exit; Previous:=Current; end; end; var i: integer; begin Readln(i); Writeln(AllEqual(i)); Writeln(TwoInARow(i)); Readln; end.

 

[Nekitl]

Как корабль назовешь, так он и поплывет.//otvet.imgsmail.ru/download/35530148_9f46d572f3ecac60448d3f8ed0e31e48_800.jpg