Задача: Найти количество всех 2K-значных счастливых билетов с суммой цифр, равной N.

[Lodyr]

При этом значения К и Н я как полагаю, должны еще считываться с текстового файла, ну а счастливые билеты и их количество тоже в этот фаил.

Как решить такую задачу, не знаю.
Если бы было известно сразу какое значное число нам дано, то еще ладно, а так...

[ОДИНОЧЕСТВО В СЕТИ]

язык то хоть какой?

[Lodyr]

Турбо Паскаль

[Alex Cones]

Решу за 100 р. Ася ниже.

[Lodyr]

мне только подсказать, как неограниченное число уместить в прогу
сам по себе я подход знаю, как решать

[Alex Cones]

как неограниченное число уместить в прогу

А вы его цифры обрабатывайте в цикле от 1 до N

[Lodyr]

я понимаю, что это не совсем то, но..
был у меня такая задачка
Найти в набранной пользователем строке слова и вывести их на экран длины которых образуют арифметическую прогрессию
Программу написал, но она у меня работает в таком случае
"..мюи.счмю.сюмма..33455656" - ввел строку
выдает на экран мюи счмю сюмма (3.4.5)
в чем сложность
если запишу так,
"324324..а ..пр..рооо"
то прога не работает, не знаю как поставить условие, чтобы при первом несовпадениис прогрессией нам на экран вывели
"а пр" (1,2)
Вот код

program city;
function bukva(c:char):boolean;
begin
     bukva:=((c<='Z')and('A'<=c))or((c<='z')and('a'<=c));
end;
var s:string;
    ls,beg,raz1,raz2,i,n,k,begun:byte;
    a:array[1..10] of string;
    b:array[1..10] of byte;
begin
     writeln('vvedite stroku');
     readln(s);
     ls:=length(s);
     n:=1;
     while (i<=ls) do
     begin
          while (i<=ls) and (bukva (s[i])=false) do
          inc(i);
                 if (i<=ls) then
                 begin
                      beg:=i;
                      while (i<=ls) and (bukva (s[i])=true) do
                            inc (i);
                            a[n]:=copy(s,beg,i-beg);
                            b[n]:=i-beg;
                            inc(n);
                      end;
                      end;
for k:=1 to n-1 do
writeln(a[k],':',b[k]);
readln;

begun:=1;
for i:=2 to k do
begin
     raz1:=abs(b[i]-b[i-1]);
     raz2:=abs(b[i+1]-b[i]);
     if raz1=raz2 then
     begin
           for begun:=begun to i+1 do
           writeln(a[begun]);
           inc(begun);
     end;
readln;
end;
end.

Скажите каким условием ограничить вывод результата на экран?

[Lodyr]

Вот что у меня получается для задачи с билетами

program happy;
var
 kolichestvo,i,error : integer;
 s : string[2*k];
 l : 0..9;
 sum1, sum2,n,N,k : byte;
begin
writeln (N);
readln(N);
writeln(k);
readln(k);

assign (output, 'c:\TP\bilet.txt');
rewrite (output);
writeln ('N,k,scastliv bilet');
writeln;
kolichestvo:=0;

for i:=1 to 10^(2*k)-1 do
begin
  sum1:=0;
  sum2:=0;
  str(i,s);{PREOBRAZUET i V STROKU s}
  n:=length(s);
  for k:=1 to (4-n) do
   s:='0'+s;
  for k:=1 to 4 do
   if k<=2 then
   begin
     val (s[k],l,error);
     sum1:=sum1+l
   end
   else
   begin
     val (s[k],l,error);
     sum2:=sum2+l
   end;

  if (sum1=N)and(sum2=N) then
  begin
    writeln ('scastliv bilet: ',s);
    inc(kolichestvo);
  end
end;
writeln;
writeln ('KOL-VO',kolichestvo);
readln;
close (output)
end.