chương trình con

Nguyen Hanh Minh Khanh

Học sinh
Thành viên
5 Tháng mười một 2017
6
2
21
20
Hà Nội
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.
 

datduong771988@gmail.com

Học sinh
Thành viên
1 Tháng mười hai 2015
15
5
21
Hà Nội
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.
 
Top Bottom