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

  • Дано трёхзначное число. напишите программу которая определяет есть ли среди цифр заданного целого трёхзначного числа одинаковые

Ответы 1

  • Var a,b,c,x:integer;

    begin

    readln(x);

     a:=x mod 10;

    x:=x div 10;

    b:=x mod 10;

    x:=x div 10;

    c:=x mod 10;

    if(a=b) or(a=c) or (b=c) then writeln('Yes')

    else writeln('No');

    end.

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

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

Еще вопросы

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

Войти через Google

 или

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

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

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