Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thiên Phúc

viết công thức pascal nhập số n từ bàn phím, thực hiện xuất ra màn hình: +các số nguyên tố từ 2 đến n

+các số chính phương từ 0 đến n

+các số  hoàn hảo từ 1 đến n

Làm giúp mình với!!!

Nguyễn Lê Phước Thịnh
20 tháng 12 2020 lúc 20:00

uses crt;

var n,i,kt,j,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');

for i:=2 to n do 

  begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

writeln;

writeln('Cac so chinh phuong trong khoang tu 0 toi ',n,' la: ');

for i:=0 to n do 

  if trunc(sqrt(i))=sqrt(i) then write(i:4);

writeln;

writeln('Cac so hoan hao trong khoang tu 1 toi ',n,' la: ');

for i:=1 to n do 

  begin

t:=0;

for j:=1 to i-1 do 

  if i mod j=0 then t:=t+j;

if t=i then write(i:4);

end;

readln;

end.


Các câu hỏi tương tự
Thiên Phúc
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Snsbbdbd Xnxb
Xem chi tiết
LQmobi Acc
Xem chi tiết
HOÀNG XUÂN NAM
Xem chi tiết
Quynh Anh Nguyen Tran
Xem chi tiết
Huy Tùng Vũ
Xem chi tiết