Question

Всем привет! Помогите пожалуйста по информатике. Задача: ввести целое число и найти сумму его цифр. Пример: введите целое число:1234. Сумма цифр числа 1234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да

Answer 1

// 2)  
var
    a: integer;
    m: array[0..9] of integer;

begin
    read(a);
    while a > 0 do
    begin
        m[a mod 10] := m[a mod 10] + 1;
        if m[a mod 10] >= 2 then begin
            write('Есть');
            break;
        end;
        a := a div 10;
    end;
    if a = 0 then write('Нет');
end.

1)
var
    a, s, i: integer;

begin
    read(a);
    s := 0;
    while a > 0 do
    begin
        s := s + a mod 10;
        a := a div 10;
    end;
    write(s);
end.