Задача о счастливых числах

[Vladimir_S]

А вообще, Лёша, мне кажется, запутали мы бедную Стасю совершенно. Поди, уж сама не рада, что к нам обратилась. Надо как-нибудь ее выпутать.

 

[Стася]

Если следовать логике Владимира, первая тройка без 0 в начале дает 69 вариантов, вторая тройка даст вычисленные нами 75 комбинаций, в целом по билету будет 69*75=5175 комбинаций. Полное же количество вариантов с 0 в начале первой тройки даст нам 75*75=5625 комбинаций номеров )

Ну эти моменты с преподавателем выясним, если что) зато весело будет, глядишь, он про остальные вопросы и не вспомнит)

 

[Vladimir_S]

задача решается тривиально в этом случае

Ну нет, не пойдёт! Это даёт в ответе 144. Надо так:

var 
 n,m,x,y,z:integer;
begin
 n:=0;
 for x:=1 to 9 do
  for y:=0 to 9 do
   for z:=0 to 9 do
    if x+y+z=13 then inc(n);
 m:=0;
 for x:=0 to 9 do
  for y:=0 to 9 do
   for z:=0 to 9 do
    if x+y+z=13 then inc(m);
 writeln('n=',n*m);
 readln
end.

 

[AlexZir]

Я уже исправил, там надо дополнительное условие дописать, смотрите еще раз )

var a,b,c,x,y,z,n:integer;
begin
n:=0;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for x:=0 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if (x+y+z=13) and (a+b+c=13) then inc;
writeln('n=',n);
readln
end.

Как говорится, не умом, так брУтом

А в целом для решения задачи в целом нафиг не нужно было заводить массив, можно было обойтись дополнительной переменной )

Полное решение у меня есть где-то в загашниках, лет семь назад с детишками разбирали эту задачу от и до на 4 языках программирования, а сегодня сам еле-еле вспомнил решение ) А всё некорректная формулировка задачи виновата

 

[Vladimir_S]

if ((x+y+z=13) or (a+b+c=13)) and (a+b+c=x+y+z) then inc;

Избыточно! Можно короче:
if (x+y+z=13) and (a+b+c=13) then inc;
Кроме того - нерационально: мой вариант (с n и m) предполагает 2000 прохождений цикла, а Ваш - 1000000 (грубо говоря). Тогда уж проще тупым перебором, как у меня в программе. Те же 900000.

 

[AlexZir]

Можно, но не нужно.
И вообще, хоть и с избыточным кодом, но моё, не стыренное )

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

Насчет неоптимальности алгоритма - я же предупредил, что это вариант тупого перебора 9*10*10*10*10*10=900000 значений aka брут )