Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Quỳnh Như

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

Tú Nguyễn
31 tháng 12 2017 lúc 11:25

đâ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.
Tú Nguyễn
31 tháng 12 2017 lúc 11:27

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

Thái Sơn Phạm
5 tháng 1 2018 lúc 22:07

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.

Hạ Mộc
18 tháng 1 2018 lúc 21:37

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.


Các câu hỏi tương tự
cuong phamquoc
Xem chi tiết
Nguyễn Thị Mỹ Nữ
Xem chi tiết
Đăng Hải
Xem chi tiết
Quỳnh Như
Xem chi tiết
Min Yoongi
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Bùi Trung Đức
Xem chi tiết
Nguyễn Phương Bằng
Xem chi tiết
PGD FF
Xem chi tiết