coffee2201
?>

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.

Информатика

Ответы

magazintrofey
В программе алгоритм неверный, так дубликаты не найти.
Поэтому программа в основном переделана.

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.
ПолухинаТененева565
Ключевое поле — это одно или несколько полей, комбинация значений которых однозначно определяет каждую запись в таблице. ... Ключевые поля используются для быстрого поиска и связи данных из разных таблиц при запросов, форм и отчетов.

2 Если в отношении имеется единственный потенциальный ключ, он является и первичным ключом

7 В области навигации щелкните таблицу или запрос, на основе которых вы хотите создать отчет. На вкладке Создание в группе Отчеты выберите Отчет. Access создаст отчет и отобразит его в режиме макета

только на 3 вопроса смогла ответить

rayman777
Ключевое поле — это одно или несколько полей, комбинация значений которых однозначно определяет каждую запись в таблице. ... Ключевые поля используются для быстрого поиска и связи данных из разных таблиц при запросов, форм и отчетов.

2 Если в отношении имеется единственный потенциальный ключ, он является и первичным ключом

7 В области навигации щелкните таблицу или запрос, на основе которых вы хотите создать отчет. На вкладке Создание в группе Отчеты выберите Отчет. Access создаст отчет и отобразит его в режиме макета

только на 3 вопроса смогла ответить

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Lvova_Aleksandr933
missbuhgalter2013
gorsimonyan4
juliaipatova1739
olimov9
Ионов202
kassel1b
kronid12
Дружинин
Иванов1813
filippovev1
preida-2
Aleksandrovich_Mitoyan1138
bsi771184
Galliardt Sergeevna1284