Внекотором текстовом редакторе используется только шрифт times new roman , для которого может быть установлен один из двух размеров.кроме того имеются три кнопки, позволяющие установить полужирное, курсивное и подчеркнутое начертание символов.сколько существует различных вариантов форматирования слова "текст"?

Шестнадцать вариантов.

Первая: program qwer; uses crt; var i, kol : integer; begin kol : = 10; for i : = 10 downto 1 do begin writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят резвились на просторе.'); writeln(kol,' один из них утоп – его сложили в гроб,'); kol : = kol - 1; writeln('и вот вам результат – ',kol,' поросят…'); end; end. вторая:   program qwer; uses crt; var i, pr, n : integer; begin readln(n); pr : = 1; for i : = 1 to n do pr : = pr * i; write(pr); end.третья: program qwer; uses crt; var s, i : integer; begins : = 115; for i : = 1 to 9 dowriteln(i * 100,'г = ',i * 100 * s / 1000,'руб'); end.готово!

Uses crt; var mas: array [1..1000] of   real;     x,k,o,p: integer; begin       write('k='); readln(k);       o: =0; p: =0;       for x: =1 to k do       begin           write('mas[',x,']: ');           readln(mas[x]);           if mas[x]< 0 then inc(o);           if mas[x]> 0 then inc(p);       end;       writeln;       writeln('отрицательных элементов:   ',o);       writeln('положительных элементов:   ',p); end.