1) определить 1-ую цифру с конца 6-значного натурального числа2)Дано естественное число

Если ты желаешь, чтоб я написал программку на языке программирования Pascal, тогда держи:

1) Если ты разговариваешь про разряд единиц, тогда вот программа:

Program pofignanazvanieprogrammi_1_1;

Var a:integer;

Begin

 write('Введите число -gt; ');

 readln(a);

 writeln(a mod 10);

End.

А если про разряд сотен тыщ, тогда:

Program pofignanazvanieprogrammi_1_2;

Var a:integer;

Begin

 write('Введите число -gt; ');

 readln(a);

 writeln(a div 100000);

End.

2) Угу, это легче.

Program chto_2;

Var a,S:integer;

Begin

 S:=0;

 write('Введите число -gt; ');

 readln(a);

 while agt;=0 do

 begin

   S:=S+(a mod 10);

   a:=a div 10;

 end;

 writeln(S);

End.