Реферат учащегося в электронном виде имеет объем 20 кб. каждая страница реферата содержит 32 строки по 64 символа. сколько страниц в реферате?

20  кб = 20*1024= 20480 байт каждый символ в электронном виде кодируется 1 байтом, поэтому в документе 20480 символов 32*64 =2048 символов на одной странице 20480/2048 = 10 страниц в документе

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin   var a: array[1..3] of string;   var l: array[1..3] of integer;   for var i: =1 to 3 do begin       write('город ',i,': '); readln(a[i]);       l[i]: =length(a[i])       end;   var imin: =1; var imax: =1;   for var i: =2 to 3 do begin       if l[i]< l[imin] then imin: =i;       if l[i]> l[imax] then imax: =i       end;   writeln('самое длинное название- ',a[imax]);   writeln('самое короткое название- ',a[imin]) end. тестовое решение город 1: москва город 2: минск город 3: киев самое длинное название- москва самое короткое название- киев

Алгоритм: выставляем некий индикатор = 0 идем по массиву если находим элемент больше 7, выставляем индикатор = 1, прекращаем просмотр массива, выводим номер элемента. если дошли до последнего элемента и все меньше 7 (индикатор = 0), выводим соответствующее сообщение. прога: program test1; var m1: array [1..60] of integer; ind, i: integer; begin ind : =0; i : = 1; repeat if m1[i]> 7  then begin writeln(i); ind : = 1; i : =  60; end; inc(i); if ((i> 60) and (ind=0)) begin writeln('массив не содержит элементов, больших 7'); ind : = 1; end; until(ind=1); end;