Задачка, на математическую логику Опции

[starmaster]

Помогите, пожалуйста, решить вот такую задачу: Даны целые числа n и k. Найти младшую цифру числа n в степени k (число n в степени k может и не вмещаться в числовую переменную).

Сообщение отредактировано: starmaster - 12.01.2005 13:46

[xds]

Код

program n_k;

var
 n, k, r: Integer;

begin
 Write('n>');
 Readln(n);
 Write('k>');
 Readln(k);
 r := 1;
 while k > 0 do
   begin
     r := LongInt(r) * n mod 10;
     Dec(k);
   end;
 Write('Младшая цифра: ', r);
end.