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

program zz1;

var n, k, m, b:integer;

begin

writeln ('Введите исходное натуральное число от 1 до 1000000');

read (n); / /Вводим исходное число

while n>0 do / /заводим цикл пока число больше нуля

begin

m:=n mod 10; / /получаем последнюю цифру

k:=k+1; / /считаем цифру

writeln (k,'-ая цифра числа = ', m); / /выводим ответ

n:=n div 10; / /отбрасываем последнюю цифру

b:=b*10+m; / /получаем новое число наоборот

end;

writeln ('Выводим число наоборот - ', b); / /выводим ответ

b:=b div 3; / /делим новое число на три

k:=0; writeln ('новое число ', b);

while b>0 do / /заводим цикл пока число больше нуля

begin

m:=b mod 10; / /получаем последнюю цифру

k:=k+1; / /считаем цифру

if k=1 then writeln (k,'-ая цифра нового числа = ', m); / /выводим ответ

b:=b div 10; / /отбрасываем последнюю цифру

end;

writeln ('последняя цифра нового числа = ', m); //выводим ответ

end.