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

144

410

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

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

Galina2617

Информатика

4,4(37 оценок)

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.