Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
N, l: integer;
begin
readln(N);
l := N mod 10;
while N > 10 do
N := N div 10;
if l > N then
write('Последняя')
else if l < N then
write('Первая')
else
write('Они равны');
readln;
end.
Объяснение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
N, l: integer;
begin
readln(N);
l := N mod 10;
while N > 10 do
N := N div 10;
if l > N then
write('Последняя')
else if l < N then
write('Первая')
else
write('Они равны');
readln;
end.
Объяснение: