10 июля, 02:14

Запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трёхзначного числа x одинаковые. Способ записи выберите самостоятельно.

+3
Ответы (1)
  1. 10 июля, 03:22
    0
    Program x;

    var

    s:string;

    begin

    readln (s);

    if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then

    writeln ('есть') else writeln ('нет')

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трёхзначного числа x одинаковые. Способ записи выберите ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы