Question

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

Answer 1

Две задачи в одной - в приложении к ответам.

dea69ce45cb4084f65ce3fa95f395c83.pas