1. На базе первой Веб-страницы создайте текстовый документ программе HEFS, имеющий следующее оформление:

Устройства компьютера
(заголовок 1)

Внешние(заголовок 2, курсив)

Принтер, сканер, монитор, клавиатура.
(размер - 7, цвет синий, шрифт Arial)

Внутренние (заголовок 2, курсив)
Винчестер, материнская плата, видеокарта.

Задание 2.

1. Самостоятельно создайте Веб-страницу, на которой будет изображен текст в следующем виде:

Методика освоения новых программ

Знакомство с примерами, шаблонами и образцами документов.

Для того, чтобы оценить возможности новой программы, лучше всего воспользоваться уже имеющимися образцами документов, созданных с её Эксперименты с пробными документами.

Цель эксперимента – проверка действия команд редактирования.

​

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол

var

  st: array[0..10000]of char;   s,s1: string;   g,g1,i,j,z: longint;   t: char;

begin

  z: =0;

  readln(s);

  readln(s1);

  g: =length(s);

g1: =length(s1);

for i: =1 to g do

for j: =1 to g1 do if s[i]=s1[j] then

begin

  inc(z);

  st[z]: =s[i];

  break;

end;

for i: =1 to z-1 do for j: =i+1 to z do if st[i]> st[j] then

begin

  t: =st[i];

  st[i]: =st[j];

  st[j]: =t;

end;

st[z+1]: ='-';

for i: =1 to z do i st[i]< > st[i+1] then write(st[i],' ');

end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.