profile
Размещено 6 лет назад по предмету Информатика от Аккаунт удален

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

  1. Ответ на вопрос
    Ответ на вопрос дан fedrfedr

    var

     n, i: Integer;

     s: string;

     isu: Boolean;

    begin

     Write ('Введите число: ');

     Read (n);

     if (n >= 1000) and (n <= 9999) then

       WriteLn ('Это число четырехзначное')

     else

       WriteLn ('Это число не четырехзначное');

     s := IntToStr (n);

     isu := True;

     for i := 1 to Length (s) - 1 do begin

       if s [i] <= s [i + 1] then begin

         isu := False;

         Break;

       end;

     end;

     WriteLn;

     if Isu then

       WriteLn ('Цифры расположены в порядке убывания')

     else

       WriteLn ('Цифры НЕ расположены в порядке убывания');

    end.


    1. Ответ на вопрос
      Ответ на вопрос дан nikolaloskytov1
      Здравствуйте, можете пожалуйста помочь с информатикой? Программу надо написать в Кумире
    2. Ответ на вопрос
      Ответ на вопрос дан nikolaloskytov1
      https://znanija.com/task/31410599
    3. Ответ на вопрос
      Ответ на вопрос дан fedrfedr
      К сожалению я в Кумире никогда не работал.
    4. Ответ на вопрос
      Ответ на вопрос дан nikolaloskytov1
      Очень жаль, но всё равно спасибо!
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.