Question

Tìm số đảo ngược Y của một số X (Y gồm các chữ số của X và viết theo thứ tự ngược lại). Xuất kết quả là số Y mod 19.

Input	Output	Giải thích
123	17	321 mod 19 = 17

Answer 1

đây chỉ là bài ví dụ cho bạn áp dụng nhé:

var i,j,k,n,m:longint; f1,f2:text; S,St:string; function ktsnt(n:qword):boolean; var k:qword; begin ktsnt:=false; k:=2; if n<2 then exit; if n=2 then ktsnt:=true; while k*k <= n do begin if n mod k = 0 then exit; inc(k); end; ktsnt:=true; end; {---------------------------------------------------------------} function daonguoc(n:qword):boolean; begin str(n,S);St:=''; for i:=length(S) downto 1 do St:=St+S[i]; val(St,k); if ktsnt(k) then daonguoc:=true else daonguoc:=false; end; {---------------------------------------------------------------} begin assign(f1,'daonguoc.inp');reset(f1); assign(f2,'daonguoc.out');rewrite(f2); readln(f1,n,m); for j:=n to m do if daonguoc(j) then writeln(f2,j); close(f1);close(f2);

end.

Answer 2

thông cảm nha mik chỉ còn bài mẫu từ lâu của mik mà mik hok quên rồi

ko thể giúp bài của bạn nha

Answer 3

uses crt;

var x,y:string;a,i,c:integer;

begin

clrscr;

write('Input: ');readln(x);

for i:=length(x) downto 1 do y:=y+x[i];

val(y,a,c);

write('Output: ',a mod 19);

readln

end.

Answer 4

Program daonguoc;

uses srt;

var f,g:text;

x:longint;

begin

assign(f,'daonguoc.inp');

reset(f);

readln(f,x);

close(f);

assign(g,'daonguoc.out');

rewrite(g);

writeln(g,' ngich dao x=:');

for i:=length(x) downto 1 do

begin

y:=x[i];

y mod 19 = n;

end;

writeln(g,n);

close(g);

readln;

End.