Viết chương trình pascal nhập số n xuất ra màn hình. - kiểm tra n có phải là số nguyên tố ko? -các số chính phương từ 0 đến n. - các số nguyên tố từ 2 đến n. LƯU Ý: chỉ được DÙNG while...do,KHÔNG ĐƯỢC DÙNG for.. to..do nha ## Mình cần rất gấp nên mong mọi người g

Nguyenthuydung

2 năm trước

Viết chương trình pascal nhập số n xuất ra màn hình. - kiểm tra n có phải là số nguyên tố ko? -các số chính phương từ 0 đến n. - các số nguyên tố từ 2 đến n. LƯU Ý: chỉ được DÙNG while...do,KHÔNG ĐƯỢC DÙNG for.. to..do nha ## Mình cần rất gấp nên mong mọi người giúp mình. Cảm ơn nhiều!!!

Loga Sinh Học lớp 12

0 lượt thích 36 xem

1 trả lời

Thích Trả lời

120720619624691

Program BTT;
Uses crt;
Var n,i: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
i:=2;
While i<= n div 2 do
Begin
If a mod 2 = 0 then exit(false);
inc(i);
End;

Exit(true);
End;

Function cp(a: longint): boolean;
Begin
If a=sqr(trunc(sqrt(a))) then exit(true);
Exit(false);
End;

Begin
Clrscr;
Write('Nhap n: '); Readln(n);

If ngto(n) then Writeln(n,' la so nguyen to')
Else Writeln(n,' khong phai so nguyen to');

i:=0;

Write('Cac so chinh phuong tu 0 - ',n,': ');
While i<=n do
Begin
If cp(i) then Write(i,' ');
inc(i);
End;

Writeln;

i:=2;

Write('Cac so nguyen to tu 2 - ',n,': ');
While i<=n do
Begin
If ngto(i) then Write(i,' ');
inc(i);
End;

Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

bahoa.vdt

var n,i,c:longint;
function checkprime(x:longint):boolean;
begin
if x=1 then exit(false);
c:=2;
while c<trunc(sqrt(n)) do begin if x mod c = 0 then exit(false); inc(c); end;
exit(true);
end;
function chinhphuong(x:longint):boolean;
begin
if sqrt(x) = trunc(sqrt(x)) then exit(true);
exit(false);
end;
begin
write('Nhap n: '); read(n);
if checkprime(n) then writeln('N la so nguyen to') else writeln('N khong phai la so nguyen to');
i:=0;
while i<n do begin if chinhphuong(i) then write(i,' '); inc(i); end;
writeln;
i:=1;
while i<n do begin if checkprime(i) then write(i,' '); inc(i); end;
readln;
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

6.Một cái hộp hình chữ nhật có chiều dài 25cm, chiều rộng 12,5cm và chiều cao 6cm.Tình diện tích hình hộp chữ nhật 7.Một thửa ruộng có diện tích 56460 mét vuông . Người ta sử dụng 15% diện tích để đào ao, còn lại để trồng lúa.Tính diện tích đó

Một thanh dài 14,0 cm tích điện đều với tổng điện tích 22,0 uC. Hãy xác định (a) độ lớn và (b) hướng của điện trường tại một điểm trên trục của thanh và điểm giữa của thanh.

Cần ai đó giải để dò kết quả, không chép mạng nha :)) Cho 2,02 gam hỗn hợp Mg và Zn vào cốc(1)đựng 200ml đung dịch HCl.sau phản ứng cô cạn dung dich được 4,86 gam chất rắn.cho 2,02 gam hỗn hợp trên vào cốc(2) đựng 400ml dung dịch HCl như trên,sau phản ứng cô cạn dung dịch được 5,57 gam chất rắn. a)tính thể tích khí thoát ra ở cốc(1)(đktc) b)tính nồng độ mol/lit của dung dich HCl c)tinh%khối lượng mỗi kim loại. ĐS: a/0,896l b/0,4M c/ 35,64%Mg,64,36%Zn

Cho hệ PT: $\left \{ {{x+my=2} \atop {mx-2y=1}} \right.$ . a) Tìm số nguyên m để hệ có nghiệm duy nhất (x;y) mà x>0 và y<0 b) Tìm số nguyên m để hệ có nghiệm duy nhất (x;y) mà x,y là các số nguyên. Cảm ơn nhiều nhaaaaaaa

vẽ giúp mk anime nữ phải thật đẹp đang mặc áo dài nha,đầy đủ chi tiết lưu ý tuyệt đối không chép mạng

GIÚP MÌNH VỚI!!!!!!!!! Tưởng tượng và kể lại giấc mơ em được chứng kiến cuộc giao tranh giữa Sơn Tinh và Thủy Tinh, được trò chuyện với Sơn Tinh và cùng tham gia vào trận chiến đấu ấy

Tại sao vật kí sinh thường không hay giết chết vật chủ?

Định m để hệ PT ẩn x,y: $\left \{ {{(m-1)x-my=3m-1} \atop {2x-y=m+5}} \right.$ có nghiệm duy nhất (x;y) mà x^2+y^2 đạt giá trị nhỏ nhất

Tại sao ta lại có thể dễ dàng nhận biết ra một tính trạng nào đó ở người là do một gen lặn nằm trên nhiễm sắc thể giới tính X quy định? Giải thích ?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến