Люди, знающие хорошо программирование, помогите пожалуйста!

01.01.2001

Люди, знающие хорошо программирование, помогите пожалуйста!
Дано многозначное число. Определить количество повторяющихся символов. Нужно составить программу на Паскале)

  • Либо пишите задание полностью и не порите отсебятину, либо как-то так:

    var
    a: array [0..9] of integer;
    n, r, c: longint;
    begin
    write('n? ');
    readln(n);
    n := abs(n);
    repeat
    inc(a[n mod 10]);
    n := n div 10;
    until n = 0;
    for c := 0 to 9 do if a[c] > 1 then inc(r, a[c]);
    write('кол-во повторяющихся символов: ', r);
    end.

    ЗЫ: кроме полного текста задания, желательно выложить и свою попытку что-либо сделать.

  • Если ещё актуально, пиши на почту, помогу.
  • Блин ra да ты молодец все время отвечаешь и мне даже помог

Вас заинтересует