Модем передает данные со скоростью 56 килобит/с. передача текстового файла заняла 4, 5 мин. определите, сколько страниц содержал переданный текст, если известно, что он был представлен в кодировке unicode, а на одной странице -3072 символа.

5040

1) var s,w: string; p: integer; begin readln(s); s: =s+' '; p: =pos(' ',s); while p> 0 do   begin   w: =copy(s,1,p-1);   writeln(w,' - ',length(w));   delete(s,1,p);   p: =pos(' ',s);   end; end. пример: слова в тексте разделены пробелом слова - 5 в - 1 тексте - 6 разделены - 9 пробелом - 8 2) var s,w: string; k,i: integer; begin readln(s); s: =s+' '; w: =''; k: =0; for i: =1 to length(s) do   if s[i]< > ' ' then begin w: =w+s[i]; k: =k+1; end   else begin writeln(w,' - ',k); w: =''; k: =0; end; end.

Const n=10; var a: array[1..n] of integer; i: integer;   begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(41)-20;   write(a[i]: 4);   end; writeln; i: =0; repeat i: =i+1; until (i> =n)or(a[i]< 0); if a[i]> =0 then writeln('нет отрицательных элементов') else writeln('первый отрицательный элемент = a[',i,'] = ',a[i]); end. пример: массив a:     8    7    0  18 -13  -9    6 -16 -13  -2 первый отрицательный элемент = a[5] = -13