Создайте блок-схему (в тетради

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.

var a: array[1..100,1..100] of integer;

i,j,s,n,k: integer;

begin

  read(n);

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if i mod 2=0 then begin

                k: =k+1;

                s: =s+a[i,j];

          end;

      end;

      writeln(s/k);

end.

n=2^b, где b=7 (поусловию )