Написать программу , которая находит и выводит на печать все четырёхзначные числа abcd , для которых выполняется : a , b , c , d - разные цифры ab-cd=a+b+c+d

{можно решать несколькими способами. одним из возможных способов является перебор всех четырехзначных чисел и проверка для каждого из них выполнения условий. попробуем сократить перебор, для этого преобразуем второе условие: 10а+b-(10c+d)=a+b+c+d; 9(a-c)=2(c+d); (a-c)/(c+d)=2/9 проанализировав первое условие, получаем, что а=с+2, d=9-c, следовательно 0< =c< =7.} program prim4;     uses crt;     var a,b,c,d: integer; begin     clrscr;     for c: =0 to 7 do          begin             a: =c+2; d; =9-c;             for b: =0 to 9 do                  begin                     if (b< > c)and(b< > a)and(b< > d)                     then                     write(a,b,c,d);                     writeln                 end;         end;     readln; end. {таким образом, мы решили , значительно сократив перебор. }

Так будет проще ну по мне так это проще program m_1; var n, k1, x, max, min, i: integer; begin    writeln ('случайные числа из интервала [a; b]');   write ('введи минимальное значение интервала - ');   read (min);   write ('введи максимальное значение интервала - ');   read (max);   write ('введи кол-во случайных чисел - ');   read (n);   for i: =1 to n do   begin     x: =random(max-min+1)+min;     write (x,' ');   end; end.

1) var e: array[1..11]of integer;       i,k: integer; begin   for i: =1 to 11 do   begin     e[i]: =random(17)-15;     write(e[i],' ');     if e[i] mod 5=0 then k: =k+1;   end;   writeln;   write('kol-vo elem krat 5: ',k); end. 2) var e: array[1..8]of integer;       i,s,k: integer; begin   for i: =1 to 8 do   begin     e[i]: =random(20)+1;     write(e[i],' ');     if e[i] mod 2=1 then s: =s+e[i];     if e[i] mod 3=0 then k: =k+1;   end;   writeln;   writeln('summa nechet elem: ',s,' kol-vo elem krat trem: ',k); end. 3) var e: array[1..14]of integer;       i: integer; begin   write('nachalni massiv: ');   for i: =1 to 14 do    begin     e[i]: =random(21)-10;     write(e[i],' ');   end;   writeln;   write('izmeneni massiv: ');   for i: =1 to 14 do   begin     if e[i]< 0 then e[i]: =0                 else e[i]: =e[i]*(-1);   write(e[i],' ');   end; end.