Трамвайный билет имеет шестизначный номер

Здесь размещаются темы относящиеся к языку программирования Pascal
Виталий

Трамвайный билет имеет шестизначный номер

Сообщение Виталий » 26 дек 2016, 13:24

Здравствуйте! :) Помогите решить задачу:

Трамвайный билет имеет шестизначный номер. Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если сумма первых трех цифр равна сумме последних трех цифр.

Аватар пользователя
admin
Администратор
Сообщений: 1
Зарегистрирован: 03 дек 2016, 00:56
Контактная информация:

Re: Трамвайный билет имеет шестизначный номер

Сообщение admin » 26 дек 2016, 13:38

Виталий писал(а):Здравствуйте! :) Помогите решить задачу:

Трамвайный билет имеет шестизначный номер. Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если сумма первых трех цифр равна сумме последних трех цифр.

Вот, приблизительно так:

Код: Выбрать все

var
  t: integer;
begin
  write('Введите номер билета --> ');
  readln(t);
  if t div 100000 + (t div 10000) mod 10 + (t div 1000) mod 10 =
    (t div 100) mod 10 + (t div 10) mod 10 + t mod 10
  then
    writeln('Билет №', t, ' счастливый')
  else
    Writeln('Билет №', t, ' не счастливый');
  readln
end.


Виталий, рекомендую зарегистрироваться, тогда не надо будет вводить капчу при задании вопроса.


Вернуться в «Pascal»

Кто сейчас на форуме

Количество пользователей, которые сейчас просматривают этот форум: нет зарегистрированных пользователей и 1 гость