profile
Опубликовано 6 лет назад по предмету Информатика от MineENDER1

Ребят, помогите пожалуйста срочно!
Буду благодарна!

Дано натуральное трехзначное число. Напишите программу, которая определяет:
А) есть ли среди цифер данного числа одинаковые;

  1. Ответ
    Ответ дан contrlc

    //PascalABC.NET

    begin

     var num := readinteger().ToString;

     if(num.Length = num.Distinct.Count) then

       write('Нет')

     else

       write('Да');

    end.

Самые новые вопросы