Вопрос по информатике:
Помогите пожалуйста
Pascal
Уровень C. Ввести натуральное число и определить, верно ли, что в его записи есть
две одинаковые цифры (не обязательно стоящие рядом).
Пример:
Введите натуральное число:
12342
Да.
Пример:
Введите натуральное число:
12345
Нет.
Проверьте программу,не работает почему-то
program nn;
var N,a,b,k,s:integer;
begin
writeln('Введите натуральное число');
readln(N);
k:=0;
N:=s;
while (N>0) do begin
a:=N mod 10;
while (N>0) do begin
b:=N mod 100 div 10;
if (a=b) then begin
k:=k+1;
end;
N:=N div 10;
end;
if (k>0) then
writeln('да')
else
N:=s;
N:=N-N mod 10;
end;
if (k>0) then writeln ('да') else
writeln('нет');
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.10.2015 18:55
- Информатика
- remove_red_eye 1116
- thumb_up 21
Ответы и объяснения 1
Поэтому программа в основном переделана.
var
n:integer;
a:array[0..9] of boolean;
d,i:byte;
r:boolean;
begin
Writeln('Введите натуральное число'); Readln(n);
for i:=0 to 9 do a[i]:=False;
r:=False;
while n>0 do begin
d:=n mod 10;
if a[d] then begin
r:=True;
break
end
else a[d]:=True;
n:=n div 10
end;
if r then Writeln('да')
else Writeln('нет')
end.
- 28.10.2015 16:49
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.