Дано четырехзначное число n, выяснить: верно ли, что все 4 цифры этого числа различны

183

434

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

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

оля2030

Информатика

4,6(30 оценок)

//pascalabc.net 3.0, сборка 1064 var n: integer; i,d: byte; b: array[0..9] of boolean; fail: boolean; begin write('введите четырехзначное натуральное число: '); read(n); for i: =0 to 9 do b[i]: =false; while (n> 0) and (not fail) do begin d: =n mod 10; if b[d] then fail: =true else b[d]: =true; n: =n div 10 end; if fail then writeln('в числе есть одинаковые цифры') else writeln('в числе нет одинаковых цифр') end. тестовое решение: введите четырехзначное натуральное число: 1263 в числе нет одинаковых цифр введите четырехзначное натуральное число: 1315 в числе есть одинаковые цифры