0 / 0 / 0
Регистрация: 24.04.2015
Сообщений: 21
1

Напечатать номера счастливых билетов(сумма первых трех цифр, равна сумме вторых трех цифр 6-ти значного числа)

18.06.2017, 13:57. Показов 5817. Ответов 4

Напечатать номера счастливых билетов(сумма первых трех цифр, равна сумме вторых трех цифр 6-ти значного числа)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2017, 13:57
Ответы с готовыми решениями:

Определить, равна ли сумма первых трех цифр, сумме последних трех цифр
С клавиатуры вводится натуральное шестизначное число.Проверить: а) равна ли сумма первых трех...

Счастливым называется шестизначное число, у которого сумма его первых трех цифр равна сумме его трех последних цифр
Опледелить является ли заданное шестизначное число счастливым? "Счастливым называется...

Счастливым называется семизначное число, у которого сумма его первых трех цифр равна сумме его трех последних цифр
Семизначное число называется "Счастливым", если у него сумма первых трех цифр равна сумме последних...

Подсчитать количество "счастливых" шестизначных автобусных билетов(сумма первых трех цифр равна сумме трех последних цифр)
Подсчитать количество "счастливых" шестизначных автобусных билетов, т.е таких, в номерах которых...

4
5017 / 2605 / 2331
Регистрация: 10.12.2014
Сообщений: 9,922
19.06.2017, 05:23 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

ZX Spectrum-128, там реализован ответ на вопрос „количество счастливых билетов“.
Для печати самих билетов проще сделать так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b,c,d,e,f : Byte;
begin
  for a := 0 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
  for d := 0 to 9 do
    for e := 0 to 9 do
      for f := 0 to 9 do
  if a+b+c = d+e+f then
    Write(a,b,c,d,e,f,#32);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7481 / 4353 / 2771
Регистрация: 22.11.2013
Сообщений: 12,480
Записей в блоге: 1
20.06.2017, 11:34 4
JuriiMW,
можно сильно сэкономить:
Pascal
1
2
3
4
5
6
7
  for a := 0 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
  for d := 0 to Min(9,a+b+c) do
    for e := 0 to Min(9,a+b+c-d) do
      if a+b+c-d-e in [0..9] then
        Write(' ',a,b,c,d,e,a+b+c-d-e);
Нужно сэкономить и на левой границе, чтобы результат a+b+c-d-e всегда попадал в [0..9].

Добавлено через 8 минут
Пожалуй, в сухом остатке так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function Min(a, b: Integer): Integer;
begin
  if a<=b then min:=a else min:=b;
end;
function Max(a, b: Integer): Integer;
begin
  if a>=b then max:=a else max:=b;
end;
var a, b, c, d, e: Integer;
begin
  for a:=0 to 9 do for b:=0 to 9 do for c:=0 to 9 do
  for d:=Max(0,a+b+c-2*9) to Min(9,a+b+c) do
    for e:=Max(0,a+b+c-d-9) to Min(9,a+b+c-d) do
      Write('  ', a,b,c,d,e,a+b+c-d-e);
end.
0
5017 / 2605 / 2331
Регистрация: 10.12.2014
Сообщений: 9,922
20.06.2017, 11:52 5
bormant, я всё это прекрасно понимаю.
Но, в первую очередь, я показал возможную простоту решения задачи для восприятия уровня ТС.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2017, 11:52
Помогаю со студенческими работами здесь

Получить все шестизначные счастливые номера (где сумма первых трех цифр равна сумме последних трех цифр)
Получить все шестизначные счастливые номера. Счастливым называют такое шестизначное число, в...

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

Подсчитать число тех счастливых билетов, у которых сумма первых трех цифр равна 13
Билет называют счастливым,если в его номере сумма первых трех цифр равна сумме последних трех...

Определить "счастливые" числа (сумма первых трех цифр равна сумме последних трех цифр)
Данные четыре шестизначных числа. Определить среди них &quot;счастливые&quot; числа (сумма первых трех цифр...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru