Задание 4.12. Варианты форматирования символов 1. В текстовом процессоре откройте файл Эффекты.rtf.
2. Измените формат символов по образцу:
Имеется много возможностей форматирования символов. Можно
менять шрифт (Arial) и размер (20)
размер (20) шрифта (24)
верхним
ИЛИ
можно менять начертание шрифта, например ИСПОЛЬЗОвать
полужирное начертание, курсив или полужирный курсив. Имеются
дополнительные возможности, такие как одинарное подчёркивание,
подчёркивание только слов, двойное подчёркивание, пунктирное
подчёркивание. Текст можно также зачеркнуть, сделать
индексом, сместить вверх или
ВНИЗ.
написать МАЛЫМИ
ПРОПИСНЫМИ БУКВАМИ ИЛИ ПРОСТО ПРОПИСНЫМИ БУКВАМИ. Текст
может быть уплотнёЊм (на1,4 пт) или разреженным (на 1,8 пт).
Цвет шрифта может быть различным, например красным. Текст может
быть скрытым, т. е. не выводиться на печать и экран.
НИЖНИМ
3. Сохраните файл с изменениями в личной папке и закройте его.
В одной из кодировок Unicode каждый символ кодируется 16 битами. При подготовке реферата по биологии Вова написал следующий текст (в нём нет лишних пробелов).
«Як, тар, лама, окапи, пекари, бегемот, антилопа, бабирусса, бородавочник относятся к диким парнокопытным животным».
Затем Вова вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы — два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 16 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
Решение.
Поскольку один символ кодируется двумя байтами, из текста удалили 8 символов. Заметим, что лишние запятая и пробел занимают четыре байта. Значит, название животного, которое удалили из списка, должно состоять из шести букв, поскольку (16 − 4) : 2 = 6 символов. Из всего списка только одно название животного состоит из 6 букв — пекари.
ответ: пекари.
Объяснение:
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.