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

Tô nhựt lắm 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);
end.

baoiutrang170806052003
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);
end.

kimnguyentruong8a9
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);
end.

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

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

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

Trần Hoàng Bảo Bảo 8a9
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 bt1;
var i,n:integer;
begin
readln (n);
for i:=1 to n do
If (i mod 3=0 )then writeln ('i');
readln
end.

Bai 1 :
Program bt1;
var i,n:integer;
begin
readln (n);
for i:=1 to n do
If (i mod 3=0 )then Writeln ('i');
readln
end.

Vương Tuấn Kiệt 8a9
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.

chin duc 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);
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.

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

Lâm Chí Khanh 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);
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);
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 bai2;
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);
end.

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

Hoang Anh Tuyet lop 8a9
Program bt2 ;
Use crt;
var dem,i,j,n : longint ;
 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.

truongxuan binh 8a9
programbt1;
uses crt ;
var s,i:integer;
begin
clrscr;
s:=o;
fori:=1to 5do
if i mod 2=o then
s:=s+i;
writeln(s);
end .

ngyen tan huy lop8a9
program bt1;
var s,i:integer;
begin
s:=o;
for i:=1 to 5do if i mod 2=0 then  
s;=s+i;
writeln(s)
end.

Nguyen Phuong Anh 8A9
Program bt2 ;
Uses crt;
var dem,i,j,n : longint ;
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.

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