[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!
ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Không dùng longint thì dùng int64, qword =)) Mà chỉ cần word là đủ rồi
[COLOR="Blue"][B]Uses crt;
var i: Qword;
function KT (n: qword): boolean;
var j: qword;
begin
j:=2;
while n mod j <> 0 do inc(j);
if n=j then KT:=True else KT:=False;
end;
begin
clrscr;
write ('Cac so nguyen to tu 32000 den 34000 la: ');
for i:= 32000 to 34000 do
if KT(i)=True then write (i,' ');
readln
end.[/B][/COLOR]Cần gì QWord, Word là đủ rồi =))Là dân CNTT thì lách luật là sở trường của chúng ta, phải không bác Đệ nhất Dâm Tặc Lâm Đê Tiện nhỉ??? =))
P/s: có gì sai thì mong bạn thông cảm! Đã hơn 5 tháng kể từ khi mình đụng Pascal.Mã:[COLOR=Blue][B]Uses crt; var i: Qword; function KT (n: qword): boolean; var j: qword; begin j:=2; while n mod j <> 0 do inc(j); if n=j then KT:=True else KT:=False; end; begin clrscr; write ('Cac so nguyen to tu 32000 den 34000 la: '); for i:= 32000 to 34000 do if KT(i)=True then write (i,' '); readln end.[/B][/COLOR]
var
i: word;
function KT(n: word): boolean;
var
j: word;
begin
j := 2;
while (n mod j <> 0) do
inc(j);
KT := (n = j);
end;
begin
writeln('Cac so nguyen to tu 32000 den 34000 la: ');
for i := 32000 to 34000 do
if KT(i) then write(i, ' ');
readln
end.Ý thím là saoBác Mĩ Kèo đi cmnr thím Lâm ơi!
Không hiểu lắm ;
Ý thím là sao
(Cho cái screenshot đê :| Tớ đâu phải mod đâu mà vào được box ẩn :|Hu hu hu! Bác ấy xin nghỉ mod vĩnh viễn rồi!
Thím vào đây mà xem chi tiết: http://diendan.hocmai.vn/showthread.php?t=348487
Thêm
{$MODE OBJFPC}{$MODE DELPHI}VD
{$MODE OBJFPC}
var
a: integer;
begin
a := 1 shl 31 - 1;
write(a);
readln
end.Turbo Pascal thì làm thế bằng niềm tin và hy vọng rồi.nếu mình dùng turbo thì phải làm sao cac bác
p.s: máy em bị lag máy ngày nay nên không thấy trả lời của mấy bác
Thì có cái *éo gì khó hiểu đâu =))