Question

Viết chương trình pascal nhập vào số nguyên n. Xuất kết quả ra màn hình ?

a) Các số nguyên liên tiếp từ 1 đến n ea màn hình?

b) Xuất các số nguyên tố có trong đoạn từ 1 đến n ra màn hình ?

Vd:

Nhap n=6

 Cac so nguyen la

   6 la hop so.

Vd: 

Nhap n=11

  Cac uoc cua n la : 1,11

     11 la so nguyen to

Giúp mình với ạ, mình đang cần gấp

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,dem,kt,j:integer;

begin

clrscr;

readln(n);

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

writeln;

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;

readln;

end.