В космической гвардии 18 кораблей достаточно ли 4 бит для кодирования каждого корабля

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

32 кбит/с*16 с=524288 бит=65536 кбайт.

вес 1 страницы=8*48=384 бит.48

кол-во стр=524288/384=1365 страниц

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

end.

если прямые не пересекаются, то они или скрещиваются или паралельные

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

неверно, что две неодинаковые прямые могут иметь две общие точки

неверно, что ответ может быть правильным или неправильным. в любом ответе есть доля истины и доля лжи