K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
TN
31 tháng 12 2017
đâ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.
1 tháng 7 2019
1) Sai --> Program Chuong_trinh;
2) Đúng
3) Đúng
4) Đúng
5) Sai --> s:=s+1;
6) Sai -->i:=1+1;
7) Sai --> End;
8 và 9) Sai --> Writeln(s); và Readln;
10) Sai --> End.
Đúng thì like cho mình nha :)))
18 tháng 3 2020
Từ khóa: program; uses; begin; end; writeln
Tên: CT_Dau_tien; Crt
19 tháng 3 2020
Từ khóa: program, uses, begin, writeln, End.
Tên: CT_Dau_tien, Crt
Hoán đổi chứ không phải là hoán vị nhé bạn
Kết quả in ra màn hình là x=9,y=7
Đây là câu lệnh để hoán vị giá trị của x và y cho nhau.