Счастливые билеты [реализация с while..do]

[Dj_Leff]

Здравствуйте, дали задание посчитать общее количество счастливых билетов при помощи цикла while...do. Вот мои наброски:

program sexytime;
uses crt;
var i, j, k, a, b, c, s:word;
begin
s:=0;
i:=0;
j:=0;
k:=0;
a:=0;
b:=0;
c:=0;
while i<=9 do
begin
 while j<=9 do
 begin
  while k<=9 do
  begin
   while a<=9 do
   begin
     while b<=9 do
     begin
       while c<=9 do
       begin
        while i+j+k=a+b+c do 
        begin
        s:=s+1;
        end;
       i:=i+1;
       end; 
     j:=j+1;
     end; 
   k:=k+1;
   end; 
  a:=a+1;
  end; 
 b:=b+1;
 end; 
c:=c+1;
end;
writeln('Kol=',s);
end.

Подскажите пожалуйста что не так? На выходе - белый экран

[noxin]

while i+j+k=a+b+c do 
begin
    s:=s+1;
end;

этот while будет вечным т.к. i,j,k,a,b,c не изменяются

[Dj_Leff]

Вот блин=) А как реализовать с while ??? Подскажите пожалуйста!!!

[noxin]

что означает счастливый билет для начала?

[Merkator]

program sexytime;
uses crt;
var i, j, k, a, b, c, s:word;
begin
s:=0;
i:=0;
j:=0;
k:=0;
a:=0;
b:=0;
c:=0;
while i<=9 do
begin
 while j<=9 do
 begin
  while k<=9 do
  begin
   while a<=9 do
   begin
     while b<=9 do
     begin
       while c<=9 do
       begin
        if i+j+k=a+b+c then 
        begin
        s:=s+1;
        end;
       i:=i+1;
       end; 
     j:=j+1;
     end; 
   k:=k+1;
   end; 
  a:=a+1;
  end; 
 b:=b+1;
 end; 
c:=c+1;
end;
writeln('Kol=',s);
end.

^^Если можно использовать условия, то можно так^^

[Dj_Leff]

Сообщение от noxin

что означает счастливый билет для начала?

Счастливым билетом считается билет, имеющий шестизначный номер, в котором сумма первых 3х чисел равна сумме четвертого, пятого и шестого чисел.

[Dj_Leff]

Сообщение от Merkator

^^Если можно использовать условия, то можно так^^

Эм, результат нулевой...

[noxin]

Эм, результат нулевой...

Попробуй так

program sexytime;
uses crt;
var i, j, k, a, b, c, s:word;
begin
s:=0;
i:=0;
j:=0;
k:=0;
a:=0;
b:=0;
c:=0;
while i<=9 do
begin
 while j<=9 do
 begin
  while k<=9 do
  begin
   while a<=9 do
   begin
     while b<=9 do
     begin
       while c<=9 do
       begin
        if i+j+k=a+b+c then 
        begin
        s:=s+1;
        end;
       c:=c+1;
       end; 
     b:=b+1;
     end; 
   a:=a+1;
   end; 
  k:=k+1;
  end; 
 j:=j+1;
 end; 
i:=i+1;
end;
writeln('Kol=',s);
end.

Не в том порядке увеличивались переменные While

[Grag]

На моем сайте http://igor-bachin.narod.ru в разделе "ПОРТФОЛИО" (Помощь студентам) есть программка о "счастливых билетах", может быть найдешь в ней что полезное для себя...

[evg_m]

s:=0;
i:=0;
j:=0;
k:=0;
a:=0;
b:=0;
c:=0;
i:=0;
while i<=9 do
begin
j:=0; //аналогично и для других a b c i j k
while j<=9 do