Номер 6 пожалуйста под буквой а,на втором вложении продолжение номера.Непременно с

Номер 6 пожалуйста под буковкой а,на втором вложении продолжение номера.Непременно с доскональным решением.

Задать свой вопрос
1 ответ
Var
  x, a, b, c: integer;                                               //Объявление переменных
 
begin                                                                    //Начало
  read(x);                                                              //Ввод искомого числа
  a := x div 100;                                                    //В переменную a записываем 1      //цифру искомого числа
  b := x div 10 mod 10;                                         //В переменную b записываем 2      //цифру искомого числа
  c := x mod 10;                                                    //В переменную c записываем 3
//цифру искомого числа //writeln(a, ' ', b, ' ', c, ' ');
          if(a lt;gt; b) and (a lt;gt; c) then write('Нет')     //Если 1 цифра искомого числа не  //одинакова 2 и 3 тогда схожих цифр в разыскиваемом числе нет
  else write('Да');                                                  //По другому однообразные цифры в  // разыскиваемом числе есть
end.                                                                     //Конец

И приз в прибавленьи:
Денис Лихушин
В какой программе прибавление раскрывать?
Ruslan Volchaev
PascalABC.NET
Виталя
Спасибо громадное!!!
Степа Золкин
Выручил!
Анастасия Кошмар
Если бонус загрузится - скажи!
Шопинская Оксана
Хорошо.
Karina Orbant
У меня нет этой программы,в школе может попробую)
Валентина Кербург
Жаль(
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт