Цифры в числе.

@shaguard · Регистрация: 20.10.2009

Author24 — интернет-сервис помощи студентам

короче задача стоит в том что дано число n. и проверить есть ли в числе повторяющие цифры!

вот моя прога

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  windows;
 
var nm,t,z,nl,nk,nn,nz,n:integer;
    ok:boolean;
begin
  writeln('vv chislo N');
  readln(n);
  nn:=n;z:=0;
  ok:=false;
  z:=0; t:=0;
  while not(nn=0)and not(ok) do
   begin
     if z=0 then
      begin
    nk:=nn mod 10;
    nm:=nn mod 100 div 10;
 
    if (nk=nm)or(nk=nl)or(nm=nl)or
        (t=nm)or(t=nl)or(t=nl)
     then
        begin
         writeln('est'); break;
         ok:=true; z:=z+1
        end
     else begin nn:=nn div 10; t:=nk end
      end
     else writeln('net')
   end;
readln
end.

но в ней не правильна фигня в том что когда он даходит до конца у него два значения почему то совпадают помагите плизз очень прошук исправте ошибку чтобы все правильно было! причем не нажо никакаих массивов только цикл!

@yanyk1n · 10.11.2009, 13:19

проще так:

Pascal

uses crt;
var c:array[0..9]of boolean;
f:boolean;
n,i,k:longint;
begin
 readln(n);
 flag:=false;
 for i:=0 to 9 do c[i]:=false; 
 while n<>0 do
 begin
  k:=n mod 10;
  if c[k] then
  begin
   flag:=true;
   break;
  end else c[k]:=true;
  n:=n div 10;
 end;
 if flag then write('В числе имеются повотряющиеся цифры') else
 write('В числе нет повторяющихся цифр');
 readln;
end.

@shaguard · 10.11.2009, 13:22 **[ТС]**

Сообщение от k1ry4

проще так:

Pascal

uses crt;
var c:array[0..9]of boolean;
f:boolean;
n,i,k:longint;
begin
 readln(n);
 flag:=false;
 for i:=0 to 9 do c[i]:=false; 
 while n<>0 do
 begin
  k:=n mod 10;
  if c[k] then
  begin
   flag:=true;
   break;
  end else c[k]:=true;
  n:=n div 10;
 end;
 if flag then write('В числе имеются повотряющиеся цифры') else
 write('В числе нет повторяющихся цифр');
 readln;
end.

спасибо конечно но мне сказали сделать без массива! чтобы голову потренировать!

@yanyk1n · 10.11.2009, 13:29

Тогда через множества):

Pascal

uses crt;
var c:set of byte;
f:boolean;
n,i,k:longint;
begin
 readln(n);
 flag:=false;
 c:=[];
 for i:=0 to 9 do c:=c+[i]; 
 while n<>0 do
 begin
  k:=n mod 10;
  if not(k in c) then
  begin
   flag:=true;
   break;
  end else c:=c-[k];
  n:=n div 10;
 end;
 if flag then write('В числе имеются повотряющиеся цифры') else
 write('В числе нет повторяющихся цифр');
 readln;
end.

@Awful · 10.11.2009, 13:42

можно через строки.. как по мне - так проще. по-моему будет работать :

Код

Program a1;
Type String20=string[20];
var
N,p:string20;
cond:boolean;
begin
writeln('vvedite 4islo');
readln(n);
cond:=false;
while length(n)>1 do
begin
p:=N[1];
Delete(N,1,1);
If pos(p,N)>0 then
begin
cond:=true;
break
end;
end;
If cond then
writeln('takie cifri est')
else
Writeln('netu');
end.

Новые блоги и статьи Все статьи Все блоги /
Что означает знак восклицания в TypeScript hw_wired 14.02.2025 TypeScript - удивительный язык программирования, который предоставляет множество возможностей для работы с типами данных. Особый интерес вызывает оператор утверждения ненулевого значения, который. . .	Как свернуть/скрыть секции кода в Visual Studio Code hw_wired 14.02.2025 Ежедневно мы работам с файлами, содержащими сотни и тысячи строк кода. Навигация по такому объему становится настоящим испытанием, особенно когда нужно быстро найти нужный метод или переменную. . . .	Автоматическое создание файла requirements.txt в Python hw_wired 14.02.2025 Дружелюбная среда для разработки на Python, один из самых широко используемых языков программирования, состоит не только из самого кода, но и целого ряда важных компонентов. И если вы когда-нибудь. . .	Передача переменных окружения в контейнер Docker hw_wired 14.02.2025 При работе с Docker контейнерами возникает необходимость передать различные настройки и конфигурационные параметры - от строк подключения к базам данных до API ключей. И хотя можно жестко прописать. . .	Отличия Constructor и ngOnInit в Angular hw_wired 14.02.2025 Разработка компонентов в Angular - непростая задача, особенно когда дело доходит до правильной инициализации и управления их жизненным циклом. Каждый разработчик рано или поздно сталкивается с. . .
Ошибка "Transport security has blocked a cleartext HTTP" в iOS hw_wired 14.02.2025 В iOS-разработке часто возникают неожиданные препятствия, и одним из самых распространенных является сообщение об ошибке "Transport security has blocked a cleartext HTTP". Эта ошибка появляется,. . .	Ошибка "Cleartext HTTP traffic not permitted" в Android hw_wired 13.02.2025 При разработке Android-приложений можно столнуться с неприятной ошибкой "Cleartext HTTP traffic not permitted", которая может серьезно затруднить отладку и тестирование. Эта проблема особенно. . .	Изменение версии по умолчанию в NVM hw_wired 13.02.2025 Node Version Manager, или коротко NVM - незаменимый инструмент для разработчиков, использующих Node. js. Многие сталкивались с ситуацией, когда разные проекты требуют различных версий Node. js,. . .	Переименование коммита в Git (локального и удаленного) hw_wired 13.02.2025 Git как система контроля версий предоставляет разработчикам множество средств для управления этой историей, и одним из таких важных средств является возможность изменения сообщений коммитов. Но зачем. . .	Отличия Promise и Observable в Angular hw_wired 13.02.2025 В веб-разработки асинхронные операции стали неотъемлимой частью почти каждого приложения. Ведь согласитесь, было бы странно, если бы при каждом запросе к серверу или при обработке больших объемов. . .

	10.11.2009, 13:12

	10.11.2009, 13:42

Опции темы