uses crt;
var x,y:string; i,a,e:longint;
begin
clrscr;
write('X=');readln(x);
for i:=1 to length(x) do y:=x[i]+y;
val(y,a,e);
writeln(a mod 19);
readln
end.
Đảo ngược xâu:
Đi từ 1 tới độ dài của xâu X:Y là bằng X[i] + Y(Vd Y=2+3 thì ra 23 với X[i] là 2 và Y là 3);
Tức là chèn cái X[i] vào trước Y để có số đảo ngược.
Nếu có gì không hiểu các bạn hãy để lại bình luận nha!!!