nam anh

sử dụng ngôn ngữ lập trình pascal. Viết chương trình in ra màn hình

-dòng thứ nhất các số nguyên từ 100->1

-dòng thứ hai số lượng các số nguyên tố

Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:45

uses crt;

var i,j,kt:integer;

begin

clrscr;

for i:=100 to 1 do write(i:4);

writeln;

for i:=2 to 100 do 

  begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

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

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

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
foxbi
Xem chi tiết
Nguyễn Thanh Anh
Xem chi tiết
PC Vũ
Xem chi tiết
Đoàn Khánh Chi
Xem chi tiết
Selena Flynn
Xem chi tiết
Phan Thu
Xem chi tiết
bí mật
Xem chi tiết
crazy
Xem chi tiết
Phúc 8A3 Trịnh Tuan
Xem chi tiết