Решить задачку с while...Билет именуют "счастливым", если в его номере сумма

Решить задачку с while...
Билет именуют "счастливым", если в его номере сумма первых 3-х цифр одинакова сумме последних 3-х. Подсчитать число "счастливых" билетов и вывести их на экран (000000 до 999999).

Задать свой вопрос
1 ответ
Var
  a, n, sum1, sum2, k: longint;
begin
  a := 100000;
  while a lt;gt; 999999 do
  begin
    sum1 := 0; sum2 := 0;
    n := a div 1000;
    sum1 := n div 100 + (n div 10) mod 10 + n mod 10;
    n := a mod 1000;
    sum2 := n div 10 + (n div 100) mod 10 + n mod 10;
    if sum1 = sum2 then
    begin
      writeln(a, ' - "счастливый" билет');
      k := k + 1;
    end;
    a := a + 1;
  end;
  writeln('Всего ', k, ' таких билетов');
  readln
end.
Мирослава Заглубоцкая
P. S. там всего 7971 билет
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт