1. Дано целое число, лежащее в интервале от 1 до 1000000. Найти все цифры данного числа, переставить их наоборот, уменьшить его в три раза. В полученном числе найти первую и последнюю цифры.

На паскале var a,n,k: integer; begin read(a); n := a; {чтобы не трогать исходные данные} k := 0; while n > 0 do   begin   k := k*10 + n mod 10;   n := n div 10   end; {теперь в k содержится перевернутое число} k := k div 3; {уменьшенное в 3 раза} n := 1; while n*10 < k do n := n * 10; writeln(k div n,' ',k mod 10); {первая и последняя цифры} end.