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

Ответы 6

  • А что означает else? Мы не пишем такое(
    • Автор:

      iris79
    • 6 лет назад
    • 0
  • проверяется условие, от него идёт два направления (да, нет),   если условие выполняется то идём по ветке then, если не выполняется то сразу переходим к else
  • Конечно можно эту строку убрать, но тогда будет выводится только то, что билет счастливый, но если билет не счастливый ты об этом неузнаешь
    • Автор:

      elvira39
    • 6 лет назад
    • 0
  • Спасибо)
    • Автор:

      haas
    • 6 лет назад
    • 0
  • можно ещё так написать, но это несовсем логичноif (sum1=sum2)  then writeln('Билет счастливый');if (sum1 < > sum2)  then writeln('Билет  несчастливый');
  • Program pr;uses crt;varchislo, sum1, sum2, i:integer;Beginwriteln ('Введите номер билета');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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years