Дано 2 целых положительных числа: a и b. требуется написать программу, которая находит цифру, на которую оканчивается число a^b. входные данные результат a=2 b=4 6

Var a,b,c: integer; begin assign(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 do c: =c*a; writeln(c mod 10); end.

Var a,b,st: integer; begin write('a = '); readln(a); write('b = '); readln(b); st: =1; for b: = 1 to b do       st: =st*a; write(st mod 10) end.

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

(1*2**5)-6-7=1