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

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

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

Phạm Quốc Đạt
Program bt2;
uses crt;
var dem,i,j,n:integer;
begin
clrscr;
readln(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.

Hoang Anh Tuyet lop 8a9
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.

Vương tuấn kiệt 8a9
progran 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 <>0then S:=S+i;
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.

Nguyen Phuong Anh 8A9
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.

Bài 2 :
Program bt2 ;
var j,i,n,dem:integer;
Begin
readln (n);
j:=0;
for i:=0 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,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.

Nguyen Phuong Anh 8A9
Program Bt4;
begin
use crt;
var i,n : longint;
begin
clrscr;
readln (n);
for i:=1 to n do
if n mod i = 0 then writeln(i);
readln
end.

Vương tuấn kiệt 8a9
Program Bt4;
begin
use crt;
var i,n : longint;
begin
clrscr;
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 then write(i);
end.

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

Hoang Anh Tuyet lop 8a9
Program Bt4;
begin
use crt;
var i,n : longint;
begin
clrscr;
readln (n);
for i:=1 to n do
if n mod i = 0 then writeln(i);
readln
end.

tô nhựt lắm 8a9
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;
writeln(s);
end

phamluongtruongduy8a9
program bt4;
var i,n:longint;
begin
readln(n);
for i:=1 to n do
if n mod i then write(i);
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.

Tô nhựt lắm 8a9
Program Bt4;
begin
use crt;
var i,n : longint;
begin
clrscr;
readln (n);
for i:=1 to n do
if n mod i = 0 then writeln(i);
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.

nguyenthiquynhhuonglop8a9
bai 1: program bt1;
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+1;
writeln ('s');
end.
bai 2: program bt2;
uses crt;
var i,j,n :integer;
begin
clrscr;
j:j=0;
for i:=1 to n do
if mod 2=0 then s:=s+1;
writeln ('s') ;
end.
bai 3: 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');
end.
bai 4: program bt4;
uses crt;
var i,n :integer;
begin
clrscr;
s:=0
for i:= 1 to n do
readln (n);
end.

Thị Kim Xuyến lớp 8a9
Bài tập 1
program bt1;
use crt;
var s, i : integer;
begin
      s:=0;
      for i:+ 1 to n do
      if i mod 2+0 then s:= s+1;
      writelin(s);
     end.
Bài tập 2
program bt2;
use crt;
var i,j,n : integer;
begin
      j:j=0;
      for i:=1 to n do
      ifmod 2=0 then s:=s+1;
      writeln(s);
end.
Bài tập 3
program bt3;
use crt;
var s,i,n :integer
begin
      s:=0;
      for i:=1 to n do
      if i mod 2=0 then s:=s+1;
      write(s);
end.
Bài tập 4
program bt4 ;
var i,n : integer;
begin
      s:=0;
      for i:= 1 to n do
      readln(n);
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.

nguyen trong phuong 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+i;
writeln(s);
end.

Bai 3 :
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);
readln
end.