Một vài bài tập tin đơn giản

Lớp mình sắp kiểm tra Tin 1 tiết rồi. Mình xin đư ra 1 số bài tập đơn giản để các bạn làm cho vui nha!
B1: Tính n! (n<=50)
B2 Nhập từ bàn phím số n. Hãy in ra các ước của n.
B3 Bài này mở rộng từ bài 2. Một số được gọi là số hoàn thiện khi nó bằng tổng các ước của nó( Tính cả 1 nhưng ko tính chính nó)
VD: 6 là 1 số hoàn thiện: 6=1+2+3
Nhập từ bàn phím số k. Hãy kieit xem k có phải là số hoàn thiện không
B4 Nhập n từ bàn phím. Kiểm tra xem n có phải là số nguyên tố không.

Bun_doi đã viết:Lớp mình sắp kiểm tra Tin 1 tiết rồi. Mình xin đư ra 1 số bài tập đơn giản để các bạn làm cho vui nha!
B1: Tính n! (n<=50)
B2 Nhập từ bàn phím số n. Hãy in ra các ước của n.
B3 Bài này mở rộng từ bài 2. Một số được gọi là số hoàn thiện khi nó bằng tổng các ước của nó( Tính cả 1 nhưng ko tính chính nó)
VD: 6 là 1 số hoàn thiện: 6=1+2+3
Nhập từ bàn phím số k. Hãy kieit xem k có phải là số hoàn thiện không
B4 Nhập n từ bàn phím. Kiểm tra xem n có phải là số nguyên tố không.

Mấy bài này cũng khá hay đó.
Bài1
program tinhngiaithua;
var n,i:byte;
s:word;
begin
write('nhap n');
readln(n);
s:=1;
for i:=1 to n do s:=s*i;
writeln('s=',s);
readln;
end.

bài 2
(thôi mình chỉ viết phần thân thôi)



for i:=1 to n div 2 do
if n mod i = 0 do write(i) {lặp đến n div 2 cho nó đỡ khổ hehe}
write(n)

bài 3
từ bài 2, ta thêm biến tổng vào
s:=0;
for i:=1 to n div 2 do
if n mod i = 0 do s:=s+i;
if s=n then writeln('s là số hoàn hảo') else write('s ko là số hoàn hảo');

bai 4

if n<2 then writeln('n ko là số nguyên tố');
else
for i:=1 to n div 2 do
if n mod i=0 then d:=d+1
if d=1 writeln('n là số nguyên tố') else writeln('n ko phai la snt');


mấy bài này mình chưa test thử nhé. có gì sai góp í nha

bai 4

if n<2 then writeln('n ko là số nguyên tố');
else
for i:=1 to n div 2 do
if n mod i=0 then d:=d+1
if d=1 writeln('n là số nguyên tố') else writeln('n ko phai la snt')

Bạn chưa gán giá trị đầu của biến d mà?
Với lại bài này có thể dùng vòng lặp While...do để có thể dừng lại khi n chia hết cho 1 số i luôn cho khỏi tốn bộ nhớ

Ban lam theo kieu while...do cho minh hoc hoi voi

If n<2 then Writeln('ko phai so nt')
Else
Begin
i:=2; d:=0;
While (i<n div 2)and(d=0) do
Begin
If n mod i =0 then d:=d+1;
i:=i+1;
End;
If d=0 then Writeln(' la so nt')
Else Writeln('Ko la so nt');
End;
Readln;

Mời các bạn tiếp tục nha
B1: Nhập n là số có 3 chữ số. Hãy in ra số n theo thứ tự nguợc lại
B2: Giải hệ phương trình bâc nhất 1 ẩn

Bai 1 co le nen lam bang xau.