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

[Google2010]

var a:array[1..999] of integer;
     i,j:integer;
k:integer;

function SD(n:integer):integer;
var s:integer;
begin
s:=0;
while n<>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
sd:=s;
end;
begin
k:=0;
i:=1;
while i<=999 do begin
a[i]:=sd(i);
inc(i);
end;
while i>=1 do begin
j:=1;
while j<=999 do begin
if a[i]=a[j] then  inc(k);
inc(j);
end;
dec(i);
end;
writeln('kol=',k);
readln;
end.

[Dj_Leff]

Сообщение от 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

Результат: Kol=1, цикл сработал, но один раз, как сделать чтоб счетчик s "набирал обороты"?

ЗЫ Может я конечно ошибаюсь, но может в данном случае спасет метка?

[Dj_Leff]

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

var a:array[1..999] of integer;
     i,j:integer;
k:integer;

function SD(n:integer):integer;
var s:integer;
begin
s:=0;
while n<>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
sd:=s;
end;
begin
k:=0;
i:=1;
while i<=999 do begin
a[i]:=sd(i);
inc(i);
end;
while i>=1 do begin
j:=1;
while j<=999 do begin
if a[i]=a[j] then  inc(k);
inc(j);
end;
dec(i);
end;
writeln('kol=',k);
readln;
end.

Спасибо конечно огромное, но нам в универе только-только начали преподавать паскаль, и я думаю что я сам бы не смог реализовать через массив. Все должно быть на детсадовском уровне=) Все равно спасибо!

ЗЫ Результат Kol=-10285
ЗЫЫ Решается заменой integer на word

[D61C76h]

Проблема заключалась в том что при входе во внутренние циклы переменная цикла принимала значение 9 и в последующие разы зайти в цикл невозможно. Вот исправленный код:

var i,j,k,a,b,c, s:Integer;
begin
s:=0;
i:=0;
while i<=9 do
begin
 j:=0;
 while j<=9 do
 begin
  k:=0;
  while k<=9 do
  begin
   a:=0;
   while a<=9 do
   begin
    b:=0;
     while b<=9 do
     begin
      c:=0;
       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);
Readln;
end.

[Dj_Leff]

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

Проблема заключалась в том что при входе во внутренние циклы переменная цикла принимала значение 9 и в последующие разы зайти в цикл невозможно. Вот исправленный код:

var i,j,k,a,b,c, s:Integer;
begin
s:=0;
i:=0;
while i<=9 do
begin
 j:=0;
 while j<=9 do
 begin
  k:=0;
  while k<=9 do
  begin
   a:=0;
   while a<=9 do
   begin
    b:=0;
     while b<=9 do
     begin
      c:=0;
       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);
Readln;
end.

Яхуу!!! Спасибо мен!! Ты настоящий мозг
Сначала я расстроился, т.к. результат был -10284, но потом integer заменил на word, и вот он заветный ответ!!! S=55252 !!!

Вопрос решен! Топ можно закрыть