profile
Размещено 5 лет назад по предмету Информатика от vhhhh

Ввести натуральное
число и определить, какие цифры встречаются несколько раз.

    Пример:    Введите число >= 0:
 
2323                                                            
 Повторяются:
 2,  3 

  1. Ответ на вопрос
    Ответ на вопрос дан emblerik
    var
      a, c : integer;
      con, rep : array [0..9] of boolean;
    begin
      read (a);
      while a > 0 do
      begin
        c := a mod 10;
        a := a div 10;
        if not con[c] then con[c] := true
          else rep[c] := true;
      end;
      for c := 0 to 9 do
        if rep[c] then write (c, ' ');
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан emblerik
      con и rep - произвольные названия переменных, con - от contain и rep - от repeat
      хорошо, сейчас переделаю на Integer
    2. Ответ на вопрос
      Ответ на вопрос дан vhhhh
      спасибо)
    3. Ответ на вопрос
      Ответ на вопрос дан emblerik
      да, что значит защиты от неправильного ввода?
    4. Ответ на вопрос
      Ответ на вопрос дан vhhhh
      при вводе отрицательного числа программа должна повторять ввод
    5. Ответ на вопрос
      Ответ на вопрос дан emblerik
      var
      a, c : integer;
      b : array [0..9] of integer;
      begin
      read (a);
      while a < 0 do
      begin
      writeln ('Введите a >= 0!');
      read (a);
      end;
      while a > 0 do
      begin
      c := a mod 10;
      a := a div 10;
      b[c] := b[c] + 1;
      end;
      for c := 0 to 9 do
      if b[c] > 1 then write (c, ' ');
      end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.