Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. Например, 1234 - нет; 1224 - да. Обязательно должен присутствовать цикл с предусловием while do. Информатика. 8 класс. Паскаль ABC.

Question

Информатика

Галека

6 ноября, 23:17

Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. Например, 1234 - нет; 1224 - да. Обязательно должен присутствовать цикл с предусловием while do. Информатика. 8 класс. Паскаль ABC.

+2

Ответы (1)

Знаете ответ на вопрос?

Люда · Answer 1

Var n:integer; var b:array[0 ... 9] of boolean; var f:boolean; begin f : = false; readln (n) ; while n > 0 do begin if b[n mod 10] then begin f : = true; break; end else b[n mod 10] : = true; n : = n div 10; end; if f then writeln ('da') else writeln ('net') ; end.