ПОМОГИТЕ ПОЖАЛУЙСТА
Дано 2 целых положительных числа: a и b. Требуется написать программу, которая находит цифру, на которую оканчивается число a^b.
Входные данные
Результат
a=2
b=4
6

Только надо в assgin(output,'outpt'); исправить ошибку в assign

Ну всё равно ошибка)))

Там будет вывод в файле кривой, "A = B = результат", но это не смертельно

Так что в ответе не ошибка, а описка, не стоило его помечать нарушением.

А далее x:=exp(b*ln(a)) и проверяем, не вышло ли значение x за верхнюю границу. Вышло - результат недостоверен.

А заодно перед этим проверить, не равно ли a нулю..

Var A,B,C:integer;Beginassign(input,'input.txt');reset(input);assgin(output,'outpt');rewrite(output);C:=1;Write('A = ');ReadLn(A);Write('B = ');ReadLn(B);For B:= 1 to B doC:=C*A;WriteLn(C mod 10);End.