1. Дано натуральное число n:
а) найти последнюю цифру числа n ;
б) найти первую цифру числа n .

2. Найти самую большую чифру челого числа.

3. Задано натуральное число n. Увеличить на 1 последнюю цифру числа.
Примеры: 37 - 38;
49 - 410.

http://vkontakte. ru/prog_mc
http://vkontakte. ru/metallizard

var i,first,last,n,k:integer;
Begin
writeln ('vvedite n');
readln (n);
last:=n mod 10;
while n>9
do n:=n div 10;
first:=n mod 10;
writeln (first,' ', last);
readln;
End.

2.

var i, k, max, n, cyfra: integer;
arr: array [1..5] of integer;
Begin
writeln ('vvedite n');
readln (n);
max:=n mod 10;
n:= n div 10;
while n>0 do
begin
cyfra:=n mod 10;
if cyfra>max then max:=cyfra;
n:= n div 10;
end;
writeln (max);
readln;
End.

var i, k, n, last: integer;
Begin
writeln ('vvedite n');
readln (n);
last:=n mod 10;
last:=last + 1;
n:=n div 10;
n:=10*n+last;
writeln (n);
readln;
End.

Пока будешь доделывать, то вот еще:
4. Задано натуральное число n. Увеличить на 1 первую цифру числа.
Примеры: 37 - 47;
99 - 109.

http://vkontakte. ru/prog_mc
http://vkontakte. ru/metallizard

var k, p, i, n, temp: integer;
Begin
writeln ('vvedite n');
readln (n);
temp:=n; {zapominaem nashe chislo vo vremennuju peremennuju}
k:=1; {snachala kolichestvo cyfr prinimaem za 1}
p:=1;
while temp>9 do

begin
k:=k+1; {k - kol-vo znakov v chisle}
temp:= temp div 10; {otbrasyvaetsa poslednyaja cyfra chisla}
end;

for i:=1 to k-1 do

p:= p*10; {opredeljaem, na skolko nado uvelichit chislo}

n:=n+p; {uvelichivaem pervuju cyfru chisla na 1}

writeln ('Kolichestvo cyfr v chisle = ',k); {eto mozhno ne vyvodit}
writeln ('Chislo - ',n);
readln;
End.