Задать вопрос Регистрация
Помочь другим

  • выяснить есть ли в трёхзначном числе одинаковые цифры

Ответы 2

  • пишу на паскале

    program tralala;

    var a,b,c,n:integer;

    begin

    readln(n);

    a:=n div 100;

    b:=n div 10 mod 10;

    c:=n mod 10;

    if (a=b) or (a=c) or (b=c) then writeln (Есть');

    else write('Нету');

    end.

  • var

    s:string[3];

    begin

    readln(s);

    if (s[1]=s[2]) or (s[3]=s[1]) or (s[3]=s[2]) then

    writeln('Есть') else

    writeln('Нет');

    end;

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years