Question

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ố

Answer 1

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.