Представить числа в виде суммы степеней числа 10 56985; 458,365

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

сначала нужно переправить козу, затем вернуться за капустой, переправить капусту и забрать козу. потом переправить волка, ну а потом уже козу.

var a: array[1..15] of char;

i,min,max: integer;

begin

  min=1;

  max=1;

  for i: = 1 to 15 do begin

      a[i]: = chr(random(256));

      if a[min]> a[i] then min: =i;

      if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.

program obmen;

var a,b,c,x,y: integer;

begin

a: =x;

b: =a;

c: =b;

x: =c;

writeln (a,b,c)

end.