В программе Паскаль.

Дано натуральное число. Вывести его первую и предпоследнюю цифру (цифры нумеруются справа на лево). Вывести цифру заданным номером k.

Var

A:longint;

k:byte;

Begin

Write ('Введите натуральное число: ') ; ReadLn (A) ;

Write ('k = ') ; ReadLn (k) ;

WriteLn ('Первая цифра: ', A mod 10) ;

For k: = 1 to k-1 do

A:=A div 10;

k:=A mod 10;

While A div 10 > 0 do

A:=A div 10;

WriteLn ('Последняя цифра: ', A) ;

WriteLn ('Цифра №k: ', k) ;

End.

Пример работы программы:

Введите натуральное число: 968764513

k = 5

Первая цифра: 3

Последняя цифра: 9

Цифра №k: 6