РЕФЕРАТ Представьте ответы на во в виде реферата. Отформатируйте реферат. Предусмотрите наличие титульной страницы, содержания, списка использованной литературы (не менее 5 источников Что такое стиль в текстовом процессоре MS Word? Каковы преимущества стилевого форматирования перед ручным? Какие основные виды стилей существуют в MS Word? Какова иерархия применения стилей к абзацу? Какие для применения стилей существуют? Как выделить все абзацы, имеющие один и тот же стиль? Как создать новый стиль абзаца или стиль символа и применить его для оформления текстового документа? В каком режиме документов следует применять стили? Какие стандартные заголовочные стили существуют? Почему заголовки в любом случае необходимо оформлять с стилей? Как можно использовать стили для создания структуры документа?

1)

var

  s : real;

  i, n : integer;

begin

  s := 0;

  read (n);

  for i := 1 to n do s := s + 1 / i;

  writeln (s);

end.

 

2)

var

  a, i : integer;

begin

  a := 1;

  for i := 1 to 8 do

  begin

    a := a * 2;

    writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');

  end;

end.

 

3)

var

  n, i : integer;

  x, s : real;

begin

  s := 0;

  read (n, x);

  for i := 1 to n do

    s := s + sin (i * x);

  writeln (s);

end.

 

4)

var

  n, a, r, i : integer;

begin

  r := 1;

  read (a, n);

  for i := 1 to n do r := r * a;

  writeln (r);

end.

Признак 1. число делится на 7 тогда и только тогда, когда утроенное число десятков, сложенное с числом единиц, делится на 7.

Признак 2. число делится на 7 тогда и только тогда, когда модуль алгебраической суммы чисел, образующих нечётные группы по три цифры (начиная с единиц) , взятых со знаком «+», и чётных со знаком «-» делится на 7.

По первому признаку гораздо проще сделать.

На Бейсике вообще нефиг делать:

d-десятки, e-единицы:

d=n\10

e=n mod 10

if (3d+n) mod 7 =0 then ...

ИЛИ ВоТ ТАК

C++:

#include <iostream>

int n;

int main() {

   std::cout << "n=";

   std::cin >> n;

   std::cout << ( (div(n, 7).rem == 0) ? "делится" : "не делится" ) << '\n';

   return 0;

}