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

Дано целое число, найдите в нем повторяющиеся цифры; выведите эти цифры и их количество( на Паскале)

  1. Ответ на вопрос
    Ответ на вопрос дан AnonimusPro
    Program n1;
    var
    st: string;
    i,c: longint;
    b: boolean;
    procedure numdig(st: string; x: char);
    var i,k: longint;
    t: string;
    begin
    t:='';
    k := 0;
    for i := 1 to length(st) do
    begin
    if st[i] = x then k := k + 1;
    end;
    if(k<>0) and (k<>1) then
    begin
    if(k=2) or (k=3) or (k=4) then t:='а';
    writeln('цифра ',x,' повторяется ',k,' раз',t);
    c:=c+1;
    end
    end;
    begin
    c:=0;
    write('введите число: ');
    read(i);
    str(i, st);
    numdig(st,'0');
    numdig(st,'1');
    numdig(st,'2');
    numdig(st,'3');
    numdig(st,'4');
    numdig(st,'5');
    numdig(st,'6');
    numdig(st,'7');
    numdig(st,'8');
    numdig(st,'9');
    if c=0 then writeln('цифры не повторяются');
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан Inf123
      Большое спасибо, выручил!!!!
    2. Ответ на вопрос
      Ответ на вопрос дан Inf123
      проверка прошла успешно - задание на 5 - спасибо от души!!!!!
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
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) их не спросили

Информация

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