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.