Выведите на экран turbo pascal используя операторы while и repeat:
1)все двухзначные числа, в которых старшая цифра отличается от младшей не больше чем на 1;
2)все трехзначные числа, в которых хотя бы две цифры повторяются

В турнире по шахматам каждый участник сыграл с каждым по одной партии, всего было сыграно 36 партий. Опеределите число участников турнира 

помогите составить предложения со словами:

завет,зовущий,глупыш,испепелить(кавается взгляда),пособничать

заранее спасибо)

Помогите пожалуйста!У меня нету текста.Кто является героем басни "Петух кот и мышонок"И какая мораль басни??Заранее огромное спасибо!!