Побудуйте схему маршруту екскурсії та опис історичних пам'яток Полтави за зразком на малюнку 8.3 (текстові та фотоматеріали містяться в папці Розділ 8/Пункт 8.1/Завдання 8.1.1) з використанням: а) графічного редактора, наприклад Paint, та редактора презантацій, наприклад PowerPoint б) текстового процесора, наприклад Word, для зображення схеми маршуту екскурсії та редактора відео для створення відеосюжету про історичні пам'ятки; зарание

1)
day integer  (PK)
month varchar(10) (PK)
temperature integer 
falls varchar(50)
wind varchar(50)

3) дату всетаки лучше задавать датой, а не число отдельно, месяц отдельно, условий на них писать море
год не указан, так что в следующем году ждут проблемы
не наложены ограничения на поля Осадки и Ветер, потому в них может быть написано что угодно, лучше все возможные варианты закинуть в отдельные таблицы

2)
не одна таблица а система таблиц конечно же
Автор
id integer (PK)
name vaechar(50)

Издательство
id integer (PK)
name vaechar(50)

Книга
id integer (PK)
name vaechar(50)
language varchar(50)
id_publisher integer (FK)

Произведение
id integer (PK)
name vaechar(50)
original_name varchar(50)
id_auther integer (FK)

Произведения в книге
id integer (PK)
id_book integer (FK)
id_proizvedenie integer (FK)

Sub aaa()
    Rows.Clear
    Dim n As Integer, k As Integer, i As Integer
    n = CInt(InputBox("n="))
    k = 2 * n - 1
    ReDim y(1 To k) As Integer
    Randomize Timer
    For i = 1 To k
        y(i) = Int(Rnd * 100 - 50)
    Next i
    Dim ry As Range
    Set ry = Range(Cells(2, 2), Cells(2, k + 1))
    ry = y
    ReDim x(1 To n) As Integer
    Dim rx As Range
    Set rx = Range(Cells(3, 2), Cells(3, n + 1))
    For i = 1 To n
        x(i) = y(2 * i - 1) ^ 2
    Next i
    rx = x
    Cells(2, 1) = "y"
    Cells(3, 1) = "x"
    Set ry = Range(Cells(2, 1), Cells(2, k + 1))
    Set rx = Range(Cells(3, 1), Cells(3, n + 1))
End Sub