HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
program bai2;
uses crt;
var n:integer;
function nt(n:integer):boolean;
var i:integer;
begin
nt:=true;
if n<2 then nt:=false;
for i:=2 to n div 2 do
if n mod i=0 then nt:=false;
end;
clrscr;
write('nhap n=');readln(n);
if nt(n) then writeln(n,' la so nt')
else writeln(n,' khong la so nt');
readln;
end.
bn tự khai báo nhé!!
s:=0;
for i:=1 to n do
s:=s+i;
writeln('tong s la:',s);
readln
XONG!!!