Предмет: Информатика, автор: Лизочка2012

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

Ответы

Автор ответа: Аноним
0
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.
Автор ответа: Аноним
0
форматирование слетает(. Но программа работоспособная
Автор ответа: Лизочка2012
0
ой, мы такого не проходили еще. Например array, boolean, false, break. true... Я не понимаю, что это означает((
Автор ответа: Аноним
0
кхм... это хуже, тут надо сначала язык хоть немного выучить. В кратце: array - таблица, boolean - тип данных принимиющий значения да/нет(true/false), break - досрочное прерывание цикла, если уже нашли пару одинаковых
Автор ответа: Лизочка2012
0
я наконец-то смогла связаться с учителем и она ответила так "Вы можете сделать только для циферок которые рядом стоят, чтобы их сравнить
Остальное пока не сделаете"
Автор ответа: Лизочка2012
0
как тогда в этом случае поступать?
Похожие вопросы
Предмет: Алгебра, автор: Onderworldasisting
Предмет: Математика, автор: saydor333
Предмет: Математика, автор: ryazanova1961