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