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 ...
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 ...
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.
Được sửa bởi lehang_gb1 lúc 19:38 ngày 27-03-2010
để 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.
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;
Bookmarks