Question

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

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.

Answer 2

форматирование слетает(. Но программа работоспособная

Answer 3

ой, мы такого не проходили еще. Например array, boolean, false, break. true... Я не понимаю, что это означает((

Answer 4

кхм... это хуже, тут надо сначала язык хоть немного выучить. В кратце: array - таблица, boolean - тип данных принимиющий значения да/нет(true/false), break - досрочное прерывание цикла, если уже нашли пару одинаковых

Answer 5

я наконец-то смогла связаться с учителем и она ответила так "Вы можете сделать только для циферок которые рядом стоят, чтобы их сравнить
Остальное пока не сделаете"

Answer 6

как тогда в этом случае поступать?