1.Можно ли в Паскале присвоить переменной результат операции сравнения? Обосновать.
2.Какую функцию используют для нахождения случайного числа от 0 до z?

Вільна тема - «П». Твору на вільну тему - Подарунок другові ( твір-розповідь)Подарунок другові ( твір-розповідь)Ми з Денисом дружимо вісім років. Познайомилися коли ще ходили в дитячий садок. Разом надійшли в перший клас однієї й тої ж школи. Ні в нього, ні в мене немає братів і сестер. Напевно, тому наша дружба така міцна. Правда, буває, ми сваримося, не завжди уважний друг до друга, але обов'язково до днів народження ретельно вибираємо один одному подарунки. Знаємо кожну штучку, яка є в друга, знаємо бажання й мрії один одного. Звичайно, не завжди є можливість таку мрію виконати. Не можу ж я подарувати Денисові парашут, а він мріє про нього, збирається спускатися з п'ятого поверху. Не можу навіть поки й кінокамеру подарувати — це теж його мрія. І от думаю, думаю, особливо коли підходить січень, а в нього день народження 2-го.Рішення мені підказала моя кішка, народивши двох чудових кошенят. У Дениса кішки ні, але я не знаю, як поставляться до подарунка (кошеняті) його батьки. Він-Те грає з моїми часто й із задоволенням, але нічого не говорить про те, чи хоче сам завести кішкуУ день народження я зав'язав на шию кошеняті величезний блакитний бант — під колір очей, пригорнув його разом з бантом міцніше до себе. І відправився в гості. Цей день я ніколи не забуду: Денисові принесли в подарунок трьох кошенят: крім мого, білу пухнату кішечку із червоним бантом і рудого котика з темно-коричневими вічками, дуже тихого й переляканого. Розгубилися все: і ми, і Денис, і його батьки. Від розгубленості дорослі забули подумати, чи хочуть вони взагалі кішку в будинок. У Дениса залишився один — тихий Рижик. Ми своїх з бантами начебто носили в гості: вони грали, бігали, смішили всіх своїми стрибками й перекидами, а Рижик, забившись у куточок, дивився на них з осудом. Його й вибрали за зразкове поводження й скромністьpodarok-druguподарок другові ( твір-розповідь)Ми з Денисом дружимо вісім років. Познайомилися коли ще ходили в дитячий садок. Разом надійшли в перший клас однієї й тої ж школи. Ні в нього, ні в мене немає братів і сестер. Напевно, тому наша дружба така міцна. Правда, буває, ми сваримося, не завжди уважний друг до друга, але обов'язково до днів народження ретельно вибираємо один одному подарунки. Знаємо кожну штучку, яка є в друга, знаємо бажання й мрії один одного. Звичайно, не завжди є можливість таку мрію виконати. Не можу ж я подарувати Денисові парашут, а він мріє про нього, збирається спускатися з п'ятого поверху. Не можу навіть поки й кінокамеру подарувати — це теж його мрія. І от думаю, думаю, особливо коли підходить січень, а в нього день народження 2-го.Рішення мені підказала моя кішка, народивши двох чудових кошенят. У Дениса кішки ні, але я не знаю, як поставляться до подарунка (кошеняті) його батьки. Він-Те грає з моїми часто й із задоволенням, але нічого не говорить про те, чи хоче сам завести кішкуУ день народження я зав'язав на шию кошеняті величезний блакитний бант — під колір очей, пригорнув його разом з бантом міцніше до себе. І відправився в гості. Цей день я ніколи не забуду: Денисові принесли в подарунок трьох кошенят: крім мого, білу пухнату кішечку із червоним бантом і рудого котика з темно-коричневими вічками, дуже тихого й переляканого. Розгубилися все: і ми, і Денис, і його батьки. Від розгубленості дорослі забули подумати, чи хочуть вони взагалі кішку в будинок. У Дениса залишився один — тихий Рижик. Ми своїх з бантами начебто носили в гості: вони грали, бігали, смішили всіх своїми стрибками й перекидами, а Рижик, забившись у куточок, дивився на них з осудом. Його й вибрали за зразкове поводження й скромність

Function ds(ByVal n As Integer) As Integer
    'Сумма цифр в числе n
    Dim s As Integer
    s = 0
    Do While n <> 0
        s = s + n Mod 10
        n = Int(n / 10)
    Loop
    ds = s
End Function

Function IsGood(n As Integer) As Boolean
    'Сохраняется ли сумма цифр при умножении числа на 2,3,..9 ?
    Dim etalon As Integer, k As Integer
    etalon = ds(n)
    IsGood = True
    k = 2
    Do While IsGood And k < 10
        IsGood = (ds(n * k) = etalon)
        k = k + 1
    Loop
End Function

Sub aaa()
    Dim i As Integer, s As String
    s = ""
    For i = 10 To 99
        If IsGood(i) Then s = s + Str(i)
    Next i
    MsgBox s
End Sub

Тестовое решение:
18 45 90 99