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 toGiúp mình với ạ, mình đang cần...
Đọc tiếp
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
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.