Question

Bài 1: Viết chương trình Pascal nhập n (n>0). Xuất ra màn hình:

các số nguyên tố từ 2 đến n và cho biết có bao nhiêu số nguyên tố từ 2 đến n 

Lưu ý : Dùng lệnh While...do hoặc Repeat....until 

Answer 1

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

readln(n);

i:=1;

while (i<n) do

begin

i:=i+1;

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;

readln;

end.

Answer 2

Viết chương trình pascal nhập n ( n>0 ) xuất ra màn hình các số hoàn toàn từ 1-2n và cho bt có bao nhiêu số như vậy