BÀI 7: CÂU LỆNH LẶP

Bài tập 1: Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n (Với n được nhập).
Hướng dẫn:
- Cho biến i chạy từ 1 đến n.
- Nếu i chẵn ( i chia 2 dư 0) thì in ra số
Bài tập 2: Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho 15 số lẻ được in trên một dòng.
Hướng dẫn:
- Cho j =0.
- Cho biến i chạy từ 1 đến n.
- Nếu i chẵn ( i chia 2 dư 0) thì in ra số n và tăng dem lên 1
- Nếu dem chia hết cho 15 thì thực hiện xuống dòng (Dùng Writeln).
Bài tập 3: Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập).
Hướng dẫn:
- Cho S = 0.
- Cho biến i chạy từ 1 đến n.
- Nếu i chẵn ( i chia 2 dư 0) thì cộng thêm i vào S.
- In ra S.
Bài tập 4: Viết chương trình in ra tất cả các ước của một số n (Với n được nhập từ bàn phím)
Hướng dẫn:
- Cho biến i chạy từ 1 đến n. Nếu n chia hết cho i thì in ra i.
Bài tập 5: Một số có tổng các ước nhỏ hơn nó bằng chính nó được gọi là số hoàn hảo.
Ví dụ: 6 có các ước nhỏ hơn nó là 1, 2, 3. Tổng là 1 + 2 + 3 = 6.
Viết chương trình xét xem một số n được nhập từ bàn phím có phải là số hoàn chỉnh không.
Hướng dẫn:
- Dùng biến n lưu số cần xét.
- Biến S có giá trị ban đầu bằng 0.
- Cho i chạy từ 1 đến n-1. nếu i là ước của n thì cộng thêm i vào S.
- Nếu S = n thì S là số hoàn chỉnh.
Bài tập 6: Viết chương trình tìm các số hoàn chỉnh nhỏ hơn n (Với n được nhập từ bàn phím).
Hướng dẫn:
- Cho biến i chạy từ 1 đến n. Xét i. Nếu nó là số hoàn chỉnh thì in ra.
Bài tập 7: Viết chương trình In bảng cửu chương n (Với n nhập từ bàn phím)
Bài tập 8: Viết chương trình lần lượt in các bảng cửu chương.
Hướng dẫn :
           - Cho biến i chạy từ 2 đến 9
           - In bảng cửu chương i.
Bài tập 9: Viết chương trình xét xem một số n có phải là số nguyên tố không?
Hướng dẫn:
- Nếu n không chia hết mọi số i có giá trị từ 2 đến n - 1  thì n là số nguyên tố.
- Sử dụng biến ok có kiểu boolean và có giá trị ban đầu là true.
- Cho biến i chạy từ 2 đến n – 1. Xét n mod i. Nếu bằng 0 thì gán ok = false. Ngược lại vẫn để nguyên ok.

program bt1;
uses crt;
var i,n : integer;
begin
S:=0;
for i:=1 to n do If (i mod 3 = 0) then i:=i+1;
write ('i');
end.

Bai1;
         program bai_1;
         uses crt;
         var i,n:integer;
         begin
                   clrscr;
                   readln(n);
                   for i:= 1 to n do
                   if i mod 2 = 0 then writeln (i);
                   readln
                   end.
Bài 2 :
           program bai_2;
           uses crt;
           var dem,i,j,n: longint;
           begin
                    textcolor(green);
                    textbackground(red);
                    readln(n);
                    dem:=0;
                    for i:= 1 to n do
                    if i mod 2 = 0 then
                                               dem:=dem+1;
                    if dem mod 15 = 0 then writeln(dem);
j:=dem;
writeln(j);
                    readln
                    end.

program bai_1;
uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2 = 0 then s:=s+1;
readln
end.

Bai1;
program bai_1;
uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:= 1 to n do
if i mod 2 = 0 then writeln (i);
readln
end.
Bài 2 :
program bai_2;
uses crt;
var dem,i,j,n: longint;
begin
textcolor(green);
textbackground(red);
readln(n);
j:=0;
for i:= 1 to n do
if i mod 2 = 0 then writeln(n)
dem:=dem+1;
if dem mod 15 = 0 then writeln(dem);
readln
end.

Program bt1;
Uses crt;
Var i,n:integer;
begin
readln(n);
For i:= 1 to n do if i mod 2 =0 then writeln('cac so do: ',i);
readln
end.

program bt1;
var i,n:integer;
begin
readln(n);
for i:=1to n do if(i mod 3=0 )then write(i);
end.

program bt1;
uses crt;
var i,n : integer;
begin
S:=0;
for i:=1 to n do If (i mod 3 = 0) then i:=i+1;
write ('i');
end.

program bt1;
var i,n: integer ;
begin
i:=0;
readln(n);
for i:=1 to n while (i mod 3 = 0)
readln(n);

end.

Bài 2 :
program bai_2;
uses crt;
var dem,i,j,n: longint;
begin
readln(n);
j:=0;
for i:= 1 to n do
if i mod 2 = 0 then writeln(n)
dem:=dem+1;
if dem mod 15 = 0 then writeln(dem);
readln
end.

Bài viết mớiTiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Today at 8:32 am Select/Unselect multi-quote Trả lời với trích dẫn nội dung bài viết này
program bt1;
var i,n:integer;
begin
readln(n);
for i:=1to n do if(i mod 3=0 )then write(i);
end.

Bai1;
program bai_1;
uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:= 1 to n do
if i mod 2 = 0 then writeln (i);
readln
end.

program bt1;
var i,n:integer;
begin
readln(n);
for i:=1to n do if(i mod 3=0 )then write(i);
end.

program bt1;
var i,n:integer;
begin
readln(n);
for i:=1to n do if(i mod 3=0 )then write(i);
end.

Bài gửiTiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Today at 8:35 am Select/Unselect multi-quote Trả lời với trích dẫn nội dung bài viết này
Bài 2 :
program bai_2;
uses crt;
var dem,i,j,n: longint;
begin
readln(n);
j:=0;
for i:= 1 to n do
if i mod 2 = 0 then writeln(n)
dem:=dem+1;
if dem mod 15 = 0 then writeln(dem);
readln
end.

program bt1;
uses crt;
var n, i integer;
begin readln
for i:=1 to n do if n mod 2 =0 then WRITELN(i);
end.

bai 2;
program bai..2;
uses crt;
var dem,i,j,n: longint;
begin
readln(n);
j:=0;
for i:= 1 to n do
if i mod 2 = 0 then writeln(n)
dem:=dem+1;
if dem mod 15 = 0 then writeln(dem);
readln
end.

program BT1;
uses crt;
var i,n:integer;
begin
for i:=1 to n do if n mod 2=0 then
writeln (i);
readln;
end.

program bt3;
var i,s,n:integer;
begin
s:=0;
readln(n);
for i:=1 to n do if i mod 2 <>0 then s:=s+1;
write(s);
end.

Hoang Anh Tuyet lop 8a9
Program BT1;
Use crt;
Var S,i : integer ;
   begin
     clrscr;
     s:=0;
     For i:=1 to 5 do
     If i mod 2 = 0 then S:= S+1 ;
     Writeln(S);
readln
  end.

Vương Tuấn Kiệt 8a9
program bt1;
use crt;
var s,i : integer ;
 begin
   clrscr;
   s:=0
   For i:=1 to 5 do
   If i mod 2= 0 then S:=S+1;
Writeln(S)
readln
end.

Nguyen Phuong Anh lop 8A9
Program bt1;
use crt;
var s,i:integer;
      begin
       clrscr;
       s:=0;
       for i:=1 to n do
       if i mod 2=0 then
        s:=s+i;
      writeln(s);
end.

Pham Quoc Dat 8a9
program bt1;
uses crt;
var s, i:integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
if i mod 2=0 then
s:=s+i;
writeln(s);
end.

program bt2;
uses crt;
var dem,i,j,n:longint;
begin
readln (n);
j:=0
for i:=1 to n do
if i mod 2=0 then writeln (n)
dem:=dem+1;
if dem mod 15=0 then writeln (dem);
readln
end.

bài 1:
program bt1;
var n,i:integer;
begin
readln(n);
for i:=1 to n do if i mod 2 <>0 then writeln (i);
end.