Нужно решить в паскале, условие таково: пользователь вводит число заранее неизвестное. выяснить есть ли в этом числе хотя бы две одинаковые цифры.

113

456

Посмотреть ответы 2

Ответы на вопрос:

lyubov130906

Информатика

4,8(21 оценок)

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.