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

program bt6;
var S,n,i,j: longint;
begin
writeln('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 writeln(i:6,',');
end;
readln;
end.

Program bt7;
Var n, i : integer;
Begin
Write('Nhap n: '); readln(n);
For i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i);
Readln;
End.

Thi Kim Xuyến 8a9
Bài tập 6
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.

Thi Kim Xuyến 8a9
Bài tập 7
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.

Lưu Thúy Hằng 8a9

program bt2 ;
var dem,j,n,i :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 bt3;
Var i,n,s:integer;
Begin
S:=0;
Readln(n);
For i:=1 to n do
If i mod 2 <>0 then S:=S+1;
Writeln('S');
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 bt2 ;
var dem,j,n,i :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 bt3;
Var i,n,s:integer;
Begin
S:=0;
Readln(n);
For i:=1 to n do
If i mod 2 <>0 then S:=S+1;
Writeln('S');
End

Lưu Thúy Hằng lớp 8a9


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

Lưu THúy Hằng 8a9

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.

Lưu Thúy Hằng lớp 8a9
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.

Lưu Thúy Hằng lớp 8a9

program bt6;
var s,n,i,j :longint;
begin
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 writeln(i);
end
readln
end.

Lưu Thúy Hằng lớp 8a9

program bt7;
var n,i :integer;
begin
readln(n);
for i :=1 to 9 do writeln(i);
readln
end.

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.


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;
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.


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('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.

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.

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

Bài 4 :
Program bt4;
Var i , n : integer ;
Begin
Readln ( n ) ;
For i:= 1 to n do
If ( n mod i = 0 ) then writeln ('i')
Readln
End .
Bài 5 :
Program bt5 ;
Var i , s , n : integer ;
Begin
Readln ( n ) ;
S:=0 ;
Writeln ( ' nhap n ' ) ;
For i:=1 to n-1 do
If ( n mod i = 0 ) then s:=s+1 ;
If s=n then writeln ( n , ' so hoan chinh ' )
else writeln ( n , ' khong phai so hoan chinh ' )
Readln
End .

Bài 6 :
Program bt6 ;
Var i , j : integer ;
S , n : longint ;
Begin
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 writeln ( ' i ' ) ;
end ;
Readln
End .
Bài 7 :
Program bt7 ;
Var i , n : integer ;
Begin
Writeln ( ' nhap n ' ) ;
Readln ( n ) ;
For i:= 1 to 9 do writeln ( n ,' x ,' i ,' = n*i ) ;
Readln
End .

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

Bài 6 :
Program bt6 ;
Var i , j : integer ;
S , n : longint ;
Begin
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 writeln ( ' i ' ) ;
end ;
Readln
End .
Bài 7 :
Program bt7 ;
Var i , n : integer ;
Begin
Writeln ( ' nhap n ' ) ;
Readln ( n ) ;
For i:= 1 to 9 do writeln ( n ,' x ,' i ,' = n*i ) ;
Readln
End .

program bt3;
var i,n : integer;
S:longint;
begin
read(n);
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 i,n:integer;
begin
readln(n);
for i:=1 to n do
if i mod 2 =0 then writeln(i);
end.