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

Ответы (1)

Лайса 15.08.2024 2

// 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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: