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

На паскалеvar a,n,k: integer;beginread(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 don := n * 10;writeln(k div n,' ',k mod 10); {первая и последняя цифры}end.