chương trình con

[Trần Tiểu My]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào số nguyên n .Sử dụng chương trình con để in ra tất cả các số nguyên tố từ 1 đến n

 

[Nguyen Hanh Minh Khanh]

use crt;
var a,i,,dem:longint;
Begin
clrscr;
Readln(a);
For a:=2 to n do
Begin
dem:=0;
For i:= 2 to trunc(sqrt(a)) do
If a mod i=0 then
dem:=dem+1;
If dem=0 then
Writeln(a,' la so nguyen to');
End;
Readln;
End.

 

[Nguyễn Thánh Tiền]

use crt;
var a,i,,dem:longint;
Begin
clrscr;
Readln(a);
For a:=2 to n do
Begin
dem:=0;
For i:= 2 to trunc(sqrt(a)) do
If a mod i=0 then
dem:=dem+1;
If dem=0 then
Writeln(a,' la so nguyen to');
End;
Readln;
End.

chương trình con đâu em

 

[datduong771988@gmail.com]

uses crt;
var n,i,j,k:longint;
function snt (var h:longint):boolean;
begin
snt := true;
for j := 2 to trunc(sqrt(h)) do
if h mod j = 0 then snt:=false;
if snt=true then write(h:6);
end;
begin
clrscr;
write('Nhap n:');readln(n);
for i:=2 to n do
begin
k := i;
snt(k);
end;
readln
end.