#13 напиши программу, которая определяет, сколько раз встречается буква ’a’ в слове, которое введет пользователь. #14 напиши программу, которая определяет, имеются ли в слове два соседствующих одинаковых символа.

#13 вот крч только это убого насамом деле,просто я забыо как через цикл делать но если ты вспомнишь,то красавчик,и да там определяет только большие а и только ) program q; var a: string; t,b: integer; begin readln(a); b: =0; if a[1]= 'a' then t: =b+1 else t: =0; if a[2]= 'a' then t: =t+1 else t: =t; if a[3]= 'a' then t: =t+1 else t: =t; if a[4]= 'a' then t: =t+1 else t: =t; if a[5]= 'a' then t: =t+1 else t: =t; if a[6]= 'a' then t: =t+1 else t: =t; if a[7]= 'a' then t: =t+1 else t: =t; if a[8]= 'a' then t: =t+1 else t: =t; if a[9]= 'a' then t: =t+1 else t: =t; if a[10]= 'a' then t: =t+1 else t: =t; if a[11]= 'a' then t: =t+1 else t: =t; if a[12]= 'a' then t: =t+1 else t: =t; write(t); end.

Принтер (англ. printer от print «печать») — это внешнее периферийное устройство компьютера, предназначенное для вывода текстовой или графической информации, хранящейся в компьютере, на твёрдый физический носитель, обычно бумагу или полимерную плёнку, малыми тиражами (от единиц до сотен).

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

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

Получили также рас и другие устройства печати, такие, как многофункциональные устройства (МФУ), в которых в одном приборе объединены функции принтера, сканера, копировального аппарата и телефакса. Такое объединение рационально с технической и экономической стороны, а также удобно в работе.

Специализированной разновидностью принтера является плоттер.

Var      a, b, c, i : integer; begin     write('введите c: ');     read(c);     write('введите a: ');     read(a);     write('введите b: ');     read(b);     for i : = a to b do        if i mod c = 0 then write(i*i,'    '); //если число делится на с, то выводим его                                                                                                                           квадрат end. в предыдущем  ответе выводятся числа, квадраты которых делятся на с.