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

"Счастливый билет". Номер билета - 6 цифр. Если сумма первых трех равна сумме последних трех цифр, то билет счастливый. Ввести с клавиатуры шестизначное число и определить, является ли счастливым

  1. Ответ на вопрос
    Ответ на вопрос дан garfild214
    Program pr;
    uses crt;

    var
    chislo, sum1, sum2, i:integer;
    Begin
    writeln ('Введите номер билета');
    readln (chislo);

    if (chislo>999999) or (chislo<100000)
      then writeln ('Такого билета нет')
      else 
          Begin
              sum1:=0;
              for i:=1 to 3 do
                  Begin
                       sum1:=sum1 + (chislo mod 10);
                       chislo:=chislo div 10; 
                   end;

               sum2:=0;
               for i:=1 to 3 do
                   Begin
                      sum2:=sum2 + (chislo mod 10);
                      chislo:=chislo div 10; 
                   end;

               if (sum1=sum2) 
                  then writeln('Билет счастливый') 
                  else writeln('Билет несчастливый');  
         end;

    readln;
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан Malyaib
      А что означает else? Мы не пишем такое(
    2. Ответ на вопрос
      Ответ на вопрос дан garfild214
      проверяется условие, от него идёт два направления (да, нет),   если условие выполняется то идём по ветке then, если не выполняется то сразу переходим к else
    3. Ответ на вопрос
      Ответ на вопрос дан garfild214
      Конечно можно эту строку убрать, но тогда будет выводится только то, что билет счастливый, но если билет не счастливый ты об этом неузнаешь
    4. Ответ на вопрос
      Ответ на вопрос дан Malyaib
      Спасибо)
    5. Ответ на вопрос
      Ответ на вопрос дан garfild214
      можно ещё так написать, но это несовсем логично

      if (sum1=sum2)  
      then writeln('Билет счастливый');
      if (sum1 < > sum2)  
      then writeln('Билет  несчастливый');
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
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) их не спросили

Информация

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