Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. Например, 1234 - нет; 1224 - да. Обязательно должен присутствовать цикл с предусловием while <условие> do. Информатика. 8 класс. Паскаль ABC.
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.
форматирование слетает(. Но программа работоспособная
ой, мы такого не проходили еще. Например array, boolean, false, break. true... Я не понимаю, что это означает((
кхм... это хуже, тут надо сначала язык хоть немного выучить. В кратце: array - таблица, boolean - тип данных принимиющий значения да/нет(true/false), break - досрочное прерывание цикла, если уже нашли пару одинаковых
я наконец-то смогла связаться с учителем и она ответила так "Вы можете сделать только для циферок которые рядом стоят, чтобы их сравнить Остальное пока не сделаете"
как тогда в этом случае поступать?