Какое условие пропущено в этом цикле перевода натурального числа n в восьмеричную систему счисления? repeat str (n mod 8, c); r:=c+r; n:=n div 8; until ?

сочинение на тему «информатика в нашей жизни»

информатика – современная область знаний. мы изучаем ее в школе, как предмет, но не только. зачем нужна информатика? в современном мире мы каждый день сталкиваемся с новейшими технологиями. у меня дома есть компьютер, подключенный к интернету. когда я ищу что-нибудь в интернете или пишу другу сообщение, то использую достижения информатики.

вокруг нас – море информации, а наука информатика как раз решает вопросы, как этим морем. поэтому она и носит такое название. без достижений информатики не существовало бы компьютеров, интернета и других новых технологий, которые уже стали для нас привычны. не было бы даже вычислительных машин, которые могут производить сложные расчеты за доли секунды. а расчеты нужны везде: на производстве, в банках, на линиях транспорта. жизнь была бы намного сложнее, если бы информатика не развилась до такого уровня, как сейчас.

не было бы поисковых систем, с которых сейчас можно отыскать нужны информацию. я не говорю, что можно найти любую информацию о любом человеке, потому что в мире всегда остаются тайны и секреты. но большинство информации, полезной в учебе и повседневной жизни, найти можно. ну, и море всякого интересного тоже. еще лет двадцать назад для этого пришлось бы идти в библиотеку и рыться там полдня.

возникает вопр�с, зачем изучать информатику всем школьникам? ведь далеко не все станут программистами, системными администраторами, веб-дизайнерами? наверное, смысл этого в том, чтобы все понимали, с чем они сталкиваются каждый день, как это действует. ведь не зря наше время называется информационной эпохой.

Const n=20;
var a: array[1..20] of integer = ( 20, 9, 24, 12, 23, 24, 21, 17, 1,
                  15, 25, 8, 21, 2, 6, 4, 12, 16, 8, 13);            
    i,j,k: integer;
begin
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[j]<a[i] then swap(a[i],a[j]);
  writeln('отсортированный массив: ');
  for i:=1 to n do write(a[i],' ');
  writeln;
  k:=0;
  i:=1; j:=2;
  repeat
    if a[j]-a[i]>=3 then
    begin
      writeln('пара: ',a[i],' ',a[j]);    
      i:=j;
      inc(k);
    end;  
    inc(j);
  until j>n;
  writeln('количество солдат:k+1);
end.

отсортированный массив: 
1 2 4 6 8 8 9 12 12 13 15 16 17 20 21 21 23 24 24 25 
пара: 1 4
пара: 4 8
пара: 8 12
пара: 12 15
пара: 15 20
пара: 20 23
количество солдат: 7