Дано натуральное число п (п < 9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры, если оно записано четырьмя цифрами, как, например, числа 3363, 4844, 0300 и т. п.

Категория: Delphi/Pascal

2012-02-19 18:04:09

code: #pascal

program  f;
label 1;
var p,i,j,n:integer;
    s:string;
    bb:boolean; 
begin
1:write('Pi= '); readln(p);
if p>9999 then begin writeln('ERROR: Pi < 9999'); goto 1  end;
str(p,s);
bb:=false;
for i:=1 to length(s) do begin   n:=0;
for j:=1 to length(s) do
if i<>j then
if s[i]=s[j] then  inc(n);
if n=2 then  bb:=true;
                        end;                       
writeln(bb);
 
readln;
end.

Поделиться:

Sample Code

категории

Похожие статьи: