Модем передает данные со скоростью 1939 байт/с. до прекращения подачи электроэнергии он успел поработать 1 минуту 40 секунд. определите количество страниц, которые содержал переданный текст, если известно, что он был представлен в 16-битной кодировке unicode, а на одной странице размещается 350 символов. в ответе укажите только число.

1мин 40 сек это 100 секунд 100*1939=193900 байт 350*2 байта=700  байт одна страница 193900/700=277

Из условия нам известно, что ввод завершается числом ноль. информация о количестве чисел требуется только если их запоминать в массиве, но у нас однопроходный алгоритм, массив не нужен, поэтому про "1000 чисел" благополучно забываем. числа целые, и по модулю не превышают 30 000, следовательно им надо отводить двухбайтный тип integer, в в котором диапазон представления чисел [-32 768 ; 32 767]."нечетные числа, кратные трем" - это такие, у которых остаток от деления на два ненулевой, а остаток от деления на три нулевой. поскольку числа целые, то и деление, конечно же, целочисленное.длина последовательности n - это просто счетчик количества прохождений цикла за вычетом единицы, потому что последний проход по циклу будет при вводе нуля, а его учитывать не надо. в другом счетчике k мы накапливаем количество чисел, для которых выполнилось рассмотренное выше условие "нечетные числа, кратные трем".var   n,k,m: integer; begin   writeln('вводите целые числа, для окончания введите 0');   n: =0; k: =0;   repeat       read(m); inc(n);       if (m mod 2 < > 0) and (m mod 3 = 0) then inc(k)   until m=0;   writeln('введено чисел- ',n-1);   writeln('нечетных, кратных трем- ',k) end. тестовое решение: вводите целые числа, для окончания введите 0 -5 12 8 27 -18 14 -33 7 0 введено чисел- 8 нечетных, кратных трем- 2

Программа : uses crt; const n=10; type vec=array [1..n] of integer ; var i, max: integer;       a: vec ; begin clrscr; randomize; writeln (' old massiv: '); for i: =1 to n do       begin             a[i]: =-5+random(15);             write (a[i]: 4);       end; writeln; max: =a[1]; for i: =2 to n do         if a[i]> max then max: =a[i]; writeln; writeln(' max = ', max); writeln (' new massiv: '); for i: =1 to n do   begin       if a[i] > 0 then a[i]: =max;       write (a[i]: 4);   end; writeln; readln; end.