Определите значения в столбце F, если известно, что F=(A или B) и (неB и A)

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

15 гб = 15360 мбайт = 122880 мбит

32 мин = 1920 с.

скорость = 122880/1920 = 64 мбит/с

1 см = 0,01 м

поэтому длину в см делим на 100 и получаем длину в м. и записываете целое число без остатка.