Дано n=12. Вычислить n-e значение переменной C.

Дано: a=10 см b=10 см k_1=1200×1200 dpi i=24 bit i  -  ? решение: i=k*i 1 дюйм = 2,54 см a=b=10 см=10/2,54=3,94 дюйм k=k_1ab=1200×1200  dpi*3,94 дюйм*3,94 дюйм=22353984 i=22353984*24  бит=536495616 бит  ≈ 64 мбайт ответ:   i≈64 мбайт

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

var m1,m2,v1,v2: real;

begin

  read(m1,m2,v1,v2);

  if m1/v1 > m2/v2 then writeln('pervoe')

  else writeln('vtoroje');

end.

 

var a,b: integer;

begin

  read(a,b);

  writeln('a delitel b - ', a mod b=0);

  writeln('b delitel a - ', b mod a=0);

 

end.

ну сначала должны поехать два близнеца

обранто возвращается один

когда тот вернулся едет отец

после того как отец доехал, с того берега едет обратно второй сын

затем едут на тот берегопять оба сына и возвращается один

после того как сын доехал садится и едет мать

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

таким образом все оказалась на том береге  =)