ПаскальгОРЮ

ПаскальгОРЮ
Тема: Последовательности.

Задание.

Дана последовательность целых длинных чисел, каждое число в диапазоне от 1 до 2 000 000 000, индикатор окон­чания последовательности – число 0.
Разработать программу на языке программирования согласно Ва­шему варианту с обязательным использованием функций.
Составить два набора чисел, каждый набор из 9 чисел, для тестовой проверки правильности работы Вашей программы.
4. В этой работе решаются две задачи со сдвигом 9:
a) Для первого варианта данные получают с клавиатуры.
b) Для второго варианта данные получают из текстового файла.

Дополнения:

- В программе необходимо использовать функции с передаваемыми параметрами.

- В задании под делителями числа понимаются собственные делители числа, т.е. собственным называется всякий его делитель, отличный от самого числа.

- Целые числа называются взаимно простыми, если они не имеют никаких общих делителей, кроме 1. Примеры: 14 и 25 взаимно просты, а 15 и 25 нет.
- Рекомендуется использовать операции целочисленной арифметики. Если в последовательности отсутствует искомый элемент, то об этом следует вывести сообщение.

- Искомые числа для каждой задачи печатать на экране.
задание Определить количество чисел-палиндромов последовательности, т.е. чисел, которые чита­ются одинаково и справа и слева (12321).

  • Дарю палиндром:

    function palinum(a:dword):boolean;
    var k:dword;
    begin
    palinum:=false;
    k:=0;
    while a>0 do begin
    k:=k*10+a mod 10;
    a:=a div 10;
    if (a=k) or (a div 10 = k) then begin
    palinum:=true;
    exit;
    end;
    end;
    end;

    Остальное слишком просто и неинтересно.