В программе Паскаль. Дано натуральное число. Вывести его первую и предпоследнюю цифру...

Question

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

Answer 1

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