Исходники на Turbo Pascal - Целочисленная арифметика
Подсчитать кол-во цифр в заданном натуральном числе.
Найдите целые числа-палиндромы, которые при возведении в квадрат тоже дают палиндромы.
Поменять местами первую и последнюю цифры числа.
Дано натуральное K. Напечатать К-ю цифру последовательности 12345678910111213..., в которой записаны подряд все натуральныe числa.
Дано число N<=99. Дописать в начало и в конец числа цифру k.
Проверить, есть ли в записи числа N в степени k цифра m.
Найти наименьшее натуральное число, представимое двумя различными способами в виде суммы кубов двух натуральных чисел.
Доказать, что любую целочисленную денежную сумму большую 7 рублей можно выплатить без сдачи трешками и пятерками.
Дано натуральное K. Напечатать К-ю цифру последовательности 149162536..., в которой записаны подряд квадраты всех натуральных чисел.
Дано натур число n<=9999. Поменять порядок следования цифр.
Перевод из 10 в двоичную ситему счисления.
Найти все делители натурального числа N.
Переставить цифры числа так, чтобы образовалось максимальное число, записанное теми же цифрами.
Переставить цифры числа так, чтобы образовалось наименьшее число, записанное теми же цифрами.
Составить программу перевода римских чисел в арабские.
Дано натур. число N. Если это не палиндром, реверсируйте его цифры и сложите исходное число с числом, полученным в результате реверсирования. Если сумма не палиндром, то повторите те же действия и выполняйте их до тех пор, пока не получится палиндром.
Дано натур. число N. Поменять порядок следования цифр в этом числе на обратный.
Дано натур. число N. Найти и вывести все числа в интервале от 1 до N-1, у которых произведение всех цифр совпадает с суммой цифр данного.
Найти произведение цифр заданного целого четырехзначного числа.
Для введенного числа N (1<=N<106) определить количество натуральных чисел из интервала от 1 до N(включительно таких, что циифры в них в их десятичной записи не убывают.
Поменять местами значения переменных А и В не используя вспомогательную переменную.