Функции

[xxxPascalxxx]

Буду благодарен за помощь в этой задаче.

Описать функцию DigitN(K, N) целого типа, возвращающую N-ю цифру
целого положительного числа K (цифры в числе нумеруются справа налево).
Если количество цифр в числе K меньше N, то функция возвращает –1. Для
каждого из пяти данных целых положительных чисел K1, K2, …, K5 вызвать
функцию DigitN с параметром N, изменяющимся от 1 до 5.

[AlDelta]

Функция:

function DigitN(numb,N:integer):integer;
var str:string;
Begin
str:=IntToStr(numb);
if N<length(str) then
    result:=(StrToInt(str[N]))
else
    result:=-1;
End;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var t:integer;
begin
t:=DigitN(4568,3);
ShowMessage(IntToStr(t));// 6
end;

Такие задачи нужно пытаться решить самостоятельно...

P.S.: Эту функцию наверное нужно описать на всех языках программирования, которые существуют (если автор не указал какого-то конкретного). Присоединяйтесь!

[Jeni]

Сообщение от xxxPascalxxx

...цифры в числе нумеруются справа налево...

Если нумерация действительно обратная, то необходимо небольшое изменение:
if N<=length(str) then
result:=(StrToInt(str[length(str) - N + 1]));