... 1(1,5®):const PI=3.14;var s:real; a,x:integer;begin write('Nhap gia tri cho a=');readln(a); write('Nhap gia tri cho x=');readln(x); s:=exp(a+sin((x*PI)/180)*sin((x*PI)/180)-x); ... readln;end.C©u 2(2®): var n:longint; k,a,i,j:byte;begin write('Nhap gia tri cho a=');readln(n); write('Nhap gia tri cho x=');readln(a); j:=0; repeat k:=n mod 10; if k=a ... n=');readln(n); until (n>0) and (n<=100); for i:=1 to n do begin write('Nhap gia tri cho phan tu a[',i,']='); readln(a[i]); end; i:=1; kt:=0; for i:=1 to...