Изменится ли строка st, над которой произведут операцию copy? почему? чему будет равняться k после операции k: =length(‘мышь и клавиатура’)? чему будет равняться переменная tx после операции tx: =‘лесник’; delete(tx, 4, 3)? чему будет равняться переменная k после операции tx: =‘баобаб’; k: =pos(‘ба’, tx)? дополнить программу недостающими подсчитать количество букв “а” в тексте ( и латинских; прописных и заглавных program zadacha1; var t: string; b: string[1]; n, k, i: integer; begin writeln('введите текст'); …………………………; n: =length(t); k: =0; for i: =1 to n do begin b: =copy(t, i, 1); if ……………………………then k: =k+1; end; writeln('k=', k); end.

Добрый день! и так, начнём.. *вопрос:   изменится ли строка st, над которой произведут операцию copy? почему? *ответ:   изменится, т.к. при использовании функции copy  необходимо указывать в какой строке копировать, с какой позиции, и количество символов, которое будет копировано.**вопрос:   чему будет равняться  k  после  операции  k: =length(‘мышь и клавиатура’)? **ответ: переменная k будет равна 17, т.к. функция length определяет длину строки, считая каждый пробел, запятую, буквы и т.д.***вопрос:   чему будет равняться переменная tx после  операции  tx: =‘лесник’;       delete(tx,4,3)? ***ответ: переменная tx будет равна слову лес.  функция  delete   удаляет часть символов из строки. в нашем случае удаление происходит в строке tx, с позиции 4, удаляет 3 символа.****вопрос:   чему будет равняться переменная k после  операции      tx: =‘баобаб’;     k: =pos(‘ба’,tx)? ****ответ: переменная k будет равна 1. т.к. функция pos определяет первое вхождение заданного символа.  дополненная программа: program zadacha1; var  t: string;   b: string[1];   n, k, i: integer; beginwriteln('введите   текст: '); readln(t); n : = length(t); k : = 0; for i : = 1 to n do  beginb : = copy(t, i, 1); if (t[i] = 'a') or (t[i] = 'a') or (t[i] = 'а') or (t[i] = 'а') then   k : = k + 1; end; writeln ('k= ', k); end. *курсивом и выделением  обозначены дополнения в программе.

Поскольку протестировать программу без файла нельзя, вот код, нужный файл. // pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); rewrite(f);   seqrandom(20,-50,50).foreach(t-> write(f,t));   f.close end. а теперь, собственно, решение type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); reset(f);   var k: =0;   var b: integer;   while not eof(f) do begin       read(f,b);       if b.iseven then k+=1       end;   f.close;   writeln('кол-во четных компонент файла равно ',k) end. и последнее - программа распечатки значений компонент файла. для контроля. type   fint=file of integer; begin   var f: fint;   assign(f,'integers.bin'); reset(f);   var b: integer;   while not eof(f) do begin read(f,b); print(b) end;   writeln;   f.close end.

Лазерний принтер  (.  laser printer)  — один з видів  принтерів, що дозволяє швидко виготовляти високоякісні відбитки тексту і графіки на звичайному папері. подібно до  фотокопіювальних апаратівлазерні принтери використовують у процесі  ксерографічного друку, однак відмінність полягає у тому, що формування зображення відбувається шляхом безпосередньої експозиції (освітлення)  лазерним  променем фоточутливих елементів принтера. принцип дії лазерного принтера полягає у наступному: на алюмінієву трубку (фотобарабан), покриту світлочутливим шаром, наноситься негативний статичний заряд. після цього промінь лазера проходить по фотобарабану, і у тому місці, де потрібно щось надрукувати, знімає частину заряду. після чого на фотобарабан наноситься  тонер  (це сухе чорнило, що із суміші смол, полімерів, металевої стружки, вугільного пилу та іншої хімії), який також має негативний заряд, і тому прилипає до барабана у тих місцях, де пройшов лазер і зняв заряд. далі барабан прокочується по паперу (що має позитивний заряд) і залишає на ньому весь тонер, після чого папір потрапляє у піч, де під впливом високої температури тонер міцно припікається до паперу. для друку кольорового зображення всі кольори на барабан наносяться по черзі, або друк відбувається у 4 проходи (для друку чорного, блакитного, пурпурного і жовтого кольорів). подібний метод друку використовується в копіювальних апаратах і деяких факсах. схожа система використовується і в світлодіодних принтерах, однак у них замість лазера використовується нерухомий рядок зі світлоді  — led-технологія друку (light emitting diode). росийська лазерный принтер (. laser printer) - один из видов принтеров, позволяющий быстро изготавливать высококачественные отпечатки текста и графики на обычной бумаге. подобно фотокопировальных апаративлазерни принтеры используют в процессе ксерографического печати, однако отличие состоит в том, что формирование изображения происходит путем непосредственной экспозиции (освещение) лазерным лучом фоточувствительных элементов принтера. принцип действия лазерного принтера заключается в следующем: на алюминиевую трубку (фотобарабан), покрытую светочувствительным слоем, наносится отрицательный статический заряд. после этого луч лазера проходит по фотобарабана, и в том месте, где нужно что-то напечатать, снимает часть заряда. после чего на фотобарабан наносится тонер (это сухие чернила, состоящие из смеси смол, полимеров, металлической стружки, угольной пыли и другой ), который также имеет отрицательный заряд, и поэтому прилипает к барабану в тех местах, где прошел лазер и снял заряд . далее барабан прокатывается по бумаге (имеющей положительный заряд) и оставляет на нем все тонер, после чего бумага попадает в печь, где под воздействием высокой температуры тонер прочно припекается к бумаге. для печати цветного изображения все цвета на барабан наносятся по очереди, или печать происходит в 4 прохода (для печати черного, голубого, пурпурного и желтого цветов). подобный метод печати используется в копировальных аппаратах и ​​некоторых факсах. похожая система используется и в светодиодных принтерах, однако в них вместо лазера используется неподвижный строку со - led-технология печати (light emitting diode).