Question

Дано целое двузначное число x . Запишите команды, позволяющие получить первую и последнюю цифры числа

Answer 1

var  N: integer; 

begin 
write('N = '); 
readln(N);  
writeln('Левая цифра: ', N div 10); 
writeln('Правая цифра: ', N mod 10);
end.