Нужно решить задачу в Паскале, условие таково:Пользователь вводит число заранее неизвестное.Выяснить есть ли в этом числе хотя бы две одинаковые цифры.
Нужно решить задачу в Паскале, условие таково:
Пользователь вводит число заранее неизвестное.
Выяснить есть ли в этом числе хотя бы две одинаковые цифры.
Гость
Ответ(ы) на вопрос:
Гостьprogram zz;
var a,z,z1,z2,z3,z4,z5,z6,z7,z8,x:integer;
begin
readln(a);
while a>0 do
begin
x:=a mod 10;
if x=1 then z:=z+1;
if x=2 then z1:=z+1;
if x=3 then z2:=z2+1;
if x=4 then z3:=z3+1;
if x=5 then z4:=z4+1;
if x=6 then z5:=z5+1;
if x=7 then z6:=z6+1;
if x=8 then z7:=z7+1;
if x=9 then z8:=z8+1;
a:=a div 10;
end;
if (z>1) or (z1>1) or (z2>1) or (z3>1) or(z4>1) or (z5>1) or (z6>1) or (z7>1) or (z8>1)
then writeln('yes')
else writeln('no');
end.
Не нашли ответ?
Похожие вопросы