Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại. Xuất ra kết quả là số Y mod 19 InputOutputGiải thích
123 17 321 mod 19 = 17
Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!
program p;
Trả lờiXóauses crt;
var t,n:longint;
begin
clrscr;
readln(n);
while n<>0 do
begin
t:=t*10+(n mod 10);
n:=n div 10;
end;
write(t mod 19);
readln;
end.
Uses crt;
Trả lờiXóaVar s,y:string;
x:longint;
Begin
readln(y);
For x:=length(y) downto 1 do
s:=s+y[x];
Val(s,x);
Write(x mod 19);
readln;
end.