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

  • Срочно! Решение задачи должно выглядить на информационном языке турбо паскаля:

    Вывести на экран все четырехзначные числа, в записи которых нет одинаковых цифр!

Ответы 1

  • var a: integer; c1, c2, c3, c4: integer;

    begin for a := 1000 to 9999 do begin c1 := a div 1000; c2 := (a div 100) mod 10; c3 := (a div 10) mod 10; c4 := a mod 10; if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4) then writeln(a); end;end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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