Tin học Tin học

[link8183@gmail.com]

[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.

bài 1 tìm số nguyên tố đầu tiên trong mảng 1 chiều các số nguyên. nếu mảng k có số nguyen tố thì tra về giá trị -1
bài 2 tìm số hoàn thiệ đầu tiên trong mảng 1 chiều các số nguyên , nếu k có số hoàn thiện thì trả về giá trị -1
bài 3 tìm giá trị âm đầu tiên trong mảng 1 chiều các số thực nếu mảng k có giá trịn âm thì trả về giá trị 1

 

[Khổng NT]

Bài 1 nek
bạn lập hàm kiểm tra nguyên tố
Function ktnt(x:int64):boolean;
Var i:int64;
begin
if x<2 then exit(false);
if (x=2)or(x=3) then exit(true);
if (x mod 2=0)or(x mod 3=0) then exit(false);
i:=5;
while i<=trunc(sqrt(x)) do
begin
if (x mod i=0)or(x mod (i+2)=0) then exit(false);
inc(i,6);
end;
XOng bạn cho biến i chạy từ phần tử đầu đến phần tử cuối của mảng và kt xem a có nt hay ko thì in ra
end;
end;

Bài 3
for i:=1 to n do
if a<0 then begin write(a);inc(d);break;end;
if d=0 then write(-1);
học tốt bn