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

  • для трёхзначных чисел до N (N вводится с клавиатуры) вывести на экран только те ,у которых все цифры в представлении различны.

Ответы 1

  • var  i,n,a,b,c    :integer;

    begin

    read(n);

    i:=99;

    for i:=100 to n do

    begin

    a:=i mod 10;

    b:=i div 10 mod 10;

    c:=i div 100;

    if (a<>b) and (a<>c) and (b<>c) then write(i,' ');

    end;

    end.

     

     

     

     

    проверь(для паскаля)

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

Еще вопросы

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

Войти через Google

 или

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

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

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