đâ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.
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
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.
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.