Вывести на экран номер всех счастливых билетов и подсчитать сколько их? в чем ошибка? var a, b, c, d, f, e, n: longint; k: real; begink: =0; for n: =000001 to 999999 do begin a: = n mod 10; b: = n div 10 mod 10; c: = n div 100 mod 10; d: = n div 1000 mod 10; f: = n div 10000 mod 10; e: = n div 100000 mod 10; if(a+b+c=d+f+e) then begin writeln(n); k: =k+1; end; end; end. покупатель должен заплатить в кассу s рублей . у него есть купюры в 1, 2, 5, 10, 50, 100, 500 руб. найти наименьшее кол-во , которым он может рассчитаться? !

Var       i1, i2, i3, i4, i5, i6: byte;       k: longint; begin       for i1 : = 0 to 9 do               for i2 : = 0 to 9 do                       for i3 : = 0 to 9 do                               for i4 : = 0 to 9 do                                       for i5 : = 0 to 9 do                                               for i6 : = 0 to 9 do                                                       if i1 + i2 + i3 = i4 + i5 + i6 then begin                                                               writeln(i1, i2, i3, i4, i5, i6);                                                               k : = k + 1;                                                       end;       writeln(k); end. var       money: array[1..7]of integer;       count: array[1..7]of integer;       s, i: integer; begin       money[1] : = 1;       money[2] : = 2;       money[3] : = 5;       money[4] : = 10;       money[5] : = 50;       money[6] : = 100;       money[7] : = 500;             write('s = ');       readln(s);             i : = 7;       repeat               if s > = money[i] then begin                       s : = s - money[i];                       count[i] : = count[i] + 1;               end               else i : = i - 1;       until s < = 0;             for i : = 7 downto 1 do               if count[i] > 0 then                       writeln(money[i], ' p. = ', count[i], ' шт.') end.

Const a=10; type mas=array[1..a] of integer;         mas1=array[1..3] of byte; var r, q, p: mas;       x: mas1;       i: byte; procedure form(var r, q, p: mas); var sr, sq, sp: byte; begin sr: =0; sq: =0; sp: =0; for i: =1 to a do   begin   if (r[i]> =2) and (r[i]< =4) then sr: =sr+r[i];   if (q[i]> =2) and (r[i]< =4) then sq: =sq+r[i];   if (p[i]> =2) and (r[i]< =4) then sp: =sp+r[i];   end; x[1]: =sr; x[2]: =sq; x[3]: =sp; writeln('massiv x'); for i: =1 to 3 do write(x[i]: 3); end; begin randomize; for i: =1 to a do   begin   r[i]: =random(10);   q[i]: =random(10);   p[i]: =random(10);   end; writeln('massiv r'); for i: =1 to a do write(r[i]: 3); writeln; writeln('massiv q'); for i: =1 to a do write(q[i]: 3); writeln; writeln('massiv p'); for i: =1 to a do write(p[i]: 3); end.

Type   arr = array[,] of integer;     arrb = array[1..3] of integer; var   i,   n, m: integer;   a1, a2, a3: arr;   b1, b2, b3: arrb; procedure formb(var a: arr; var b: arrb); var  i, j, n, m: integer; begin   n: = length(a,0);   m: = length(a,1); for i : = 0 to n-1 do   begin   for j : = 0 to m-1  do     begin     a[i,j]: =random(10);     write(a[i,j]: 2);     if a[i,j]=1 then b[1]: =b[1]+1;     if a[i,j]=2 then b[2]: =b[2]+1;     if a[i,j]=3 then b[3]: =b[3]+1     end;   writeln   end end; begin write('введите n1 и m1: '); readln(n,m); setlength(a1, n, m); formb(a1,b1); write('число единиц, двоек и троек соответственно равно: '); for i : = 1 to 3 do write(b1[i]: 4); writeln; write('введите n2 и m2: '); readln(n,m); setlength(a2, n, m); formb(a2,b2); write('число единиц, двоек и троек соответственно равно: '); for i : = 1 to 3 do write(b2[i]: 4); writeln; write('введите n3 и m3: '); readln(n,m); setlength(a3, n, m); formb(a3,b3); write('число единиц, двоек и троек соответственно равно: '); for i : = 1 to 3 do write(b3[i]: 4) end.сделал еще вариант с двумя процедурами: type      arr = array[,] of integer;   arrb = array[1..3] of integer; var    a1, a2, a3: arr;   b1, b2, b3: arrb; procedure formb(var a: arr; var b: arrb); var   i, j, n, m: integer; beginfor i: =1 to 3 do b[i]: =0; n: = length(a,0); m: = length(a,1); for i : = 0 to n-1 do  begin  for j : = 0 to m-1 do    begin    a[i,j]: =random(10);     write(a[i,j]: 2);     if a[i,j]=1 then b[1]: =b[1]+1;     if a[i,j]=2 then b[2]: =b[2]+1;     if a[i,j]=3 then b[3]: =b[3]+1    end;   writeln  endend; procedure inp(var a: arr; var b: arrb); var i,n,m: integer; beginwrite('введите n и m:   '); readln(n,m); setlength(a, n, m); formb(a,b); write('число единиц, двоек и троек соответственно равно: '); for i : = 1 to 3 do write(b[i]: 4); writelnend; begininp(a1,b1); inp(a2,b2); inp(a3,b3)end.