Giúp em bài tập này với

[amimylovely]

Viết chương trình nhập một số nguyên n (n>1) từ bàn phím và in ra màn hình n số nguyên đầu tiên .Chương trình có kiểm tra dữ liệu nhập và có sử dụng chương trình con.

Thanks các anh trước nhe ...

[lehang_gb1]

Bài của bạn chỉ đơn giản là đưa ra các số từ nguyên từ 1 đến N chứ gì? Thế thì đơn giản chứ có gì đâu. \
Var N:integer;
Procedure songuyen(x:integer);
Var i:integer;
Begin
Foor i:=1 to x do write(i:3);
end;
BEGIN
Repeat
write('Nhap so nguyen N:'); Readln(N);
until N>0;
writeln('Day so la:');
songuyen(N);
Readln
End.

[quockiet2525]

để tui pos lên cho các bạn một hàm kiểm tra số nguyên tố.
Function NGTO( X: Integer):Boolean;
i: Integer;
Begin
NGTO:=True;
If x=1 then NGTO:=False;
For i:= 1 to x div 2 do
If x mod i = 0 then NGTO:=False;
End;

có gì thì liên hệ với mình nhe, mình tên là Quốc Kiệt.
email: quockiet2525@yahoo.com.vn
đi không đổi danh ngồi không đổi họ chết cũng không đỗi email.

[QuyNam]

function nguyento(n:integer):boolean;
var i:integer;
begin
nguyento:=false;
if n<2 then exit;
for i:=2 to trunc(sqrt(n)) do if n mod i=0 then exit;
nguyento:=true;
end;