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

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

Phạm Quốc Đạt 8a9
Program bt5;
Uses crt;
Var n, i, s: integer;
Begin
write('nhap so n: ');readln(n);
s:=0;
for i:= 1 to n -1 do if n mod i = 0 then s:=s+i;
if s = n then write(n, ' la so hoan chinh')
else writeln(n, ' khong phai la so hoan chinh');
readln
End.

Phạm Quốc Đạt 8a9
Program bt6;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.

Phạm Quốc Đạt 8a9
Program bt7;
uses crt;
var n, i : integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln
End.

program bt4;
uses crt;
var i,n:integer;
begin
readln(n);
for i:=1 to n do if n mod i =o then write(i);
end.

Lê Trương Hoàng Thơ Lớp 8a9
Bài 5
program Bai5;
Var S,i,n:integer;
Begin
S:=0;
begin
For i:=1 to n-1 do
n:=i+S;
end;
End.
Bài 6
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
program bai6;
Var n,i:integer;
Begin
For i:=1 to n do
if i < n then
Writeln(n)
End.

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.


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 bt3;
Use crt;
Var i,n : integer;
S: longint;
Begin
Clrscr;
readln(n);
S:=0;
For i:=1 to n do
if i mod 2 <> 0 then S:= S+i;
writeln(S);
readln
end.


program bt4;
var i,n:longint;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then writeln(i)
readln
end.

program bt4;
var i,n:longint;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then writeln(i)
readln
end.

program bt5;
var s:integer;
i,n;longint;
begin
readln(n);
s:=0;
for i:=1to n-1 do if n mod i=0 then s:=s+1
if s=n then writeln(n,'la so hoan chinh')
else writeln(n,'n khong la so hoan chinh');

readln
end.



Program bt6;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.


Program bt7;
uses crt;
var n, i : integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln
End.

program bt5;
var s:integer;
i,n;longint;
begin
readln(n);
s:=0;
for i:=1to n-1 do if n mod i=0 then s:=s+1
if s=n then writeln(n,'la so hoan chinh')
else writeln(n,'n khong la so hoan chinh');

readln
end.



Program bt6;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.


Program bt7;
uses crt;
var n, i : integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln
End.

program bt4;
var i,n:longint;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then writeln(i)
readln
end.

program bt5;
var s:integer;
i,n;longint;
begin
readln(n);
s:=0;
for i:=1to n-1 do if n mod i=0 then s:=s+1
if s=n then writeln(n,'la so hoan chinh')
else writeln(n,'n khong la so hoan chinh');

readln
end.



Program bt6;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.


Program bt7;
uses crt;
var n, i : integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln
End.

program bt4;
var i,n:longint;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then writeln(i)
readln
end.

program bt5;
var s:integer;
i,n;longint;
begin
readln(n);
s:=0;
for i:=1to n-1 do if n mod i=0 then s:=s+1
if s=n then writeln(n,'la so hoan chinh')
else writeln(n,'n khong la so hoan chinh');

readln
end.



Program bt6;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.


Program bt7;
uses crt;
var n, i : integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln
End.

nguyen thi quynh huong lop 8a9
bai 5 : program bt5;
uses crt;
var s,n,i iterger;
begin
s:=0
for i:=1 to n do
if i mod i=0 then
s:=s+1
writeln ( s )
end .

nguyen thi quynh huong lop 8a9
bai tap 6
program bt6:
var s,i,n,j longint;
begin
clrscr;
writeln ( nhap so n =');
readln;
for i:=1 to n do
begin
s:=0 ;
for j:=1 to i do
if i mod j:=0 then s:=s+j;
if 2*1 then writeln ( i:6 , ');
end
writeln ( s ) ;
end .

nguyenthiquynhhuonglop8a9
baitap7
program bt7;
uses crt;
var n, i : integer;
begin
clrscr;
write(' Nhap vao so n : ');
readln(n);
for i:=1 to 9 do
writeln (n,' x ', i, ' = ', n*i);
readln;
End.

trần yến linh 8a10
    program bt1;
    uses crt;
    var s,i: integer;
 begin
    clrscr;
    for i:=1 to 5 do If (i mod 2=0) then s:=s+1;
    writeln (s);      
    readln
 end.  

     program bt2;
     uses crt;
     var i,j,n,dem: integer;
  begin
     clrscr;
     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 bt3;
     uses crt;
     var s,i,n: integer;
  begin
     clrscr;
     s:=0;
     for i:= 1 to n do If (i mod 2=0) then s:=s +i;
     writeln(s);      
     readln
  end.

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.


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 bt3;
Use crt;
Var i,n : integer;
S: longint;
Begin
Clrscr;
readln(n);
S:=0;
For i:=1 to n do
if i mod 2 <> 0 then S:= S+i;
writeln(S);
readln
end.


program bt4;
var i,n:longint;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then writeln(i)
readln
end.

program bt5;
var s:integer;
i,n;longint;
begin
readln(n);
s:=0;
for i:=1to n-1 do if n mod i=0 then s:=s+1
if s=n then writeln(n,'la so hoan chinh')
else writeln(n,'n khong la so hoan chinh');

readln
end.



Program bt6;
uses crt;
Var S, n, i,j: longint;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
S:=0;
For j:=1 to i do if i mod j = 0 then S:=S+j;
if S = 2*i then write(i:6,',');
end;
readln
end.


Program bt7;
uses crt;
var n, i : integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln
End.

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.