Що таке колонтитул ? * Службові малюнки, які розміщуються на полях Службові повідомлення, які розміщуються у змісті Службові повідомлення, які розміщуються на полях Відображаються тільки на першій сторінці і / або знизу Що можна змінювати для частин документа завдяки поділу на розділи ? * Абзацний відступ Розмір і орієнтацію аркуша Колір тексту Поля Списки яких видів можна створити в текстовому процесорі Word ? * Маркований Багаторівневий Послідовний Нумерований Якими символами може нумеруватися список ? * Малюнок або літера Число або літера Число або малюнок Число або маркер Маркер або літера Відновіть послідовність дій для замінення у списку одного маркера на інший * Вибрати відповідні абзаци списку Розкрити список У групі Абзац обрати команду Маркери Вибрати символ для маркування 1 2 3 4 Як встановити лінію, що розділяє колонки ? * У вікні Колонки встановити прапорець Роздільник У вікні Абзац встановити прапорець Роздільник У вікні Колонки встановити прапорець Список У вікні Список встановити прапорець Роздільник Як вибрати для роботи окрему клітинку ? * Встановити вказівник на вказівник і клацнути Встановити клітинку на вказівник і клацнути Встановити вказівник на абзац і клацнути Встановити вказівник на клітинку і клацнути На якій вкладці знаходяться засоби форматування шрифту ? * Вставлення Файл Основне Розмітка сторінки

строка

Объяснение:

Колонти́тул — строка, расположенная на краю полосы набора и содержащая заголовок, имя автора, название произведения, части, главы, параграфа и т. д. Размещается на всех страницах печатного издания, за исключением титульных листов, выходных данных, страниц и вклеек, заполненных иллюстрациями, а также начальных и спусковых полос. Также колонтитул может отсутствовать на левых страницах.

1)
 var 
n:integer;
begin 
readln(n); 
if(n<0)then write(0) 
else write(n+4);
end.

2)
 var
  a, b: integer;
 begin
  readln(a, b);
  if(a = b) then
write(1)
  else
write(0);
end.

3)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a >= 0) then s := s + 1;
  if(b >= 0) then s := s + 1;
  if(c >= 0) then s := s + 1;
  write(s);
end.

4)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a > 0) then s := s + a;
  if(b > 0) then s := s + b;
  if(c > 0) then s := s + c;
  write(s);
end.
5)
 var
  a, b, c: integer;
 begin
  readln(a, b, c);
  if (a < b) then swap(a, b);
  if (a < c) then swap(a, c);
  if (b < c) then swap(b, c);
  write(a, ' ', b, ' ', c);
end.

6)
 var n, k, s, i: integer;
 begin
  s := 0;
  readln(n, k);
  for i := 1 to n.ToString.Length do
  if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
  write(s);
 end.

7)
 var n, s, i: integer;
 begin
  s := 0;
  readln(n);
  for i := 1 to n do
    s := s + i;
  write(s);
 end.

9)
 var n, i: integer;
 begin
  readln(n);
  for i := n downto 1 do
  write(i);
 end.

12
 var
  n, i: integer;
  s: real;
 begin
  s := 0;
  readln(n);
  for i := n downto 1 do
  s:=s+(0.1*i);
    write(s);
 end.

13)
 var n, i: integer;
 begin
  readln(n);
  for i := 1 to n do
    write(sqr(i), ' ');
end.

14)
 var
  n, i, c: integer;
 begin
  i := 1;
  c := 0;
  readln(n);
  while (c <> n) do
  begin
    if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
    i := i + 1;
  end;
end.

15)
 var
  n, i, a: integer;
  c: real;
 begin
  i := 1;
  c := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(a);
    c := c + a;
  end;
  write(c / n)
end.

16)
 var
  n, i, a: integer;
 begin
  i := 1;
  while true do
   begin
    read(a);
    if(a = 0) then break;
    n := n + 1;
  end;
  write(n)
end.

Var
    N, s, i: Integer;
    s1: real;

begin
    readln(N); {общий ввод для всех задач}
    
    if N < 0 then
        writeln('Задача 1. N=', 0)
    else writeln('Задача 1. N=', N + 4);
    
    s := 0;
    for i := 1 to n do
        s := s + i;
    writeln('Задача 7. 1+2+3+…+N=', s);
    
    write('Задача 9. Последовательность от N до 1 = ');
    for i := n downto 1 do
        write(i, ' ');
    writeln();
    
    s1 := 0;
    for i := 1 to n do
        s1 := s1 + i / 10;
    writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
    
    write('Задача 13. Последовательность квадратов от 1 до N = ');
    for i := 1 to n do
        write(i * i, ' ');
    writeln();
    
    write('Задача 14. Последовательность первых N нечетных чисел = ');
    for i := 1 to n do
        write(2 * i - 1, ' ');
    writeln();
    
    if N > 0 then
        writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
    
    s := 0;
    for i := 1 to n do
        if n mod i = 0 then
            s := s + i;
    writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.