| BÀI 7: CÂU LỆNH LẶP | |
|
+48ngoaimycute8a9 hoangphuc8a8 huynhmainhathy8a8 hongngoc2017 hobaotrung8a8 luuthuyhang vothithuythanh.8a9 tranyhihongyenlop8a9 Letruonghoangtho nguyentrongphuong8a9 thikimxuyenlop.8a9 nguyenthiquynhhuonglop8a9 leminhtrung8a9 hoangthibichtram8a9 nguyenvuthanhduylop8a9 nguyentanhuy.8a9 truongxuanbinh.8a9 nguyenthanhtrung8a9 dangxuanquann8a9 lamchikhanh8a9 truongnguyenanhdung8a9 chinduc letrieuyenmy.8a9 trankimphung.8a9 minhnhut8a9 volequynhquyen8a9 kimnguyentruong8a9 tranhoangbaobao8a9 tonhutlama9 lamhavy8a9 datphamquoc2603 phamluongtruongduy8a9 nguyenphuonganhthd8a9 vuongtuankieta9 hoanganhtuyeta9 nguyễn phước sang 8a8 lê khắc tuấn8a8 nguyenkimuyen8a8 maihaunghia8a8 lethiminhchauthd8a8 huynhthithuynga.lop8a8 lethanhphat2k3 trinhhongtham114 duyhai8a8 nguyenthanhtamfaker123 PhanHoangHungThinh8a8 Lephamkhanhquynhlop8a8 Admin 52 posters |
|
Tác giả | Thông điệp |
---|
Letruonghoangtho Tân Binh
Tổng số bài gửi : 5 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 10:32 am | |
| Lê Trương Hoàng Thơ lớp 8a9 Bài 1 Program bai_1; var n,i:integer; Begin Readln(n); for i:=1 to n do if i mod 2<>0 then Writeln(i); end. | |
|
| |
tranyhihongyenlop8a9 Tân Binh
Tổng số bài gửi : 1 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 10:32 am | |
| Tran Thi Hông Yến 8a9 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 Writeln(s); End. Bai Tap 2 program BT2 ; uses crt ; Var i,j,n ;integer ; begin j:j=o ; For i:=1 to n do If mod 2=0 then s:= s +1 Writeln(s); End. Bai Tap 3 program BT3 ; uses crt ; var s,i:integer; begin S:=0 ; For i := 1 to n do if i mod 2 =0 then s:= s+1 Writeln(s); End. | |
|
| |
vothithuythanh.8a9 Tân Binh
Tổng số bài gửi : 1 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 10:32 am | |
| program bt1; uses crt; var i,n : integer; begin readln(n); for i:=1 to n do If (i mod 2 = 0) then i:=i+1; write ('i'); end.
| |
|
| |
datphamquoc2603 Tân Binh
Tổng số bài gửi : 6 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 10:33 am | |
| Phạm Quốc Đạt 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. | |
|
| |
luuthuyhang Tân Binh
Tổng số bài gửi : 7 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 10:33 am | |
| luu thuy hang program bt1; var i, n :integer; begin readln(n); for i:=1 to n do if i mod 2<>0 then writeln(i) end. | |
|
| |
Letruonghoangtho Tân Binh
Tổng số bài gửi : 5 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 5:36 pm | |
| Lê Trương Hoàng Thơ lớp 819 Bài 2 program bai_2; 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 dem mod 15 = 0 then writeln(dem); End. | |
|
| |
Letruonghoangtho Tân Binh
Tổng số bài gửi : 5 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 5:37 pm | |
| Lê Trương Hoàng Thơ lớp 819 Bài 2 program bai_2; 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 dem mod 15 = 0 then writeln(dem); End. | |
|
| |
Letruonghoangtho Tân Binh
Tổng số bài gửi : 5 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 5:39 pm | |
| Lê Trương Hoàng Thơ 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+i; writeln(s); Readln end. | |
|
| |
hobaotrung8a8 Tân Binh
Tổng số bài gửi : 3 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 5:43 pm | |
| program bt1; uses crt; var i,n:integer; begin s:=0; for:=1 to n do if i mod 2=0 then writeln (i); end. | |
|
| |
hobaotrung8a8 Tân Binh
Tổng số bài gửi : 3 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 5:45 pm | |
| program bt1; uses crt; var i,n:integer; begin s:=0; for:=1 to n do if i mod 2=0 then writeln (i); end. | |
|
| |
hongngoc2017 Tân Binh
Tổng số bài gửi : 1 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 7:04 pm | |
| bai 1 program bt1; use crt; var i,n:interger; begin s;=0; for i:=1 to n do if i mod 2=0 then writeln (i) ; readln; end.
bai 2 program bt2; uses crt; var dem,i,n,j: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 15=0 then writeln(dem); readln end.
| |
|
| |
huynhmainhathy8a8 Tân Binh
Tổng số bài gửi : 1 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 7:10 pm | |
| Bài 1: program bt1; uses crt; var i,n:integer; begin clrscr; readln(n); for i:= 1 to n do if i mod 2 <>0 then writeln(i,'i nho hon n') else writeln(i,'i bang n'); end.
Bài 2: program bt2; uses crt; var i,n,j,dem: integer; begin 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. | |
|
| |
trinhhongtham114 Tân Binh
Tổng số bài gửi : 6 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 7:15 pm | |
| - trinhhongtham114 đã viết:
- 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+i; write(s); end. | |
|
| |
trinhhongtham114 Tân Binh
Tổng số bài gửi : 6 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 7:33 pm | |
| program bt2; uses crt; var i, j ,dem:integer; begin readln(n); dem:=0; j:=0; for i:=1to n do if i mod 2 <>o then write(n); dem:=dem+1; if dem mod 15=0 then write(dem); end. | |
|
| |
trinhhongtham114 Tân Binh
Tổng số bài gửi : 6 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 7:34 pm | |
| program bt2; uses crt; var i, j ,dem:integer; begin readln(n); dem:=0; j:=0; for i:=1to n do if i mod 2 <>o then write(n); dem:=dem+1; if dem mod 15=0 then write(dem); end. | |
|
| |
trinhhongtham114 Tân Binh
Tổng số bài gửi : 6 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 19, 2017 7:43 pm | |
| program bt4; uses crt; var i,n:integer; begin readln(n); for i:=1to n do if n mod i =o then write(i); end. | |
|
| |
dangxuanquann8a9 Tân Binh
Tổng số bài gửi : 4 Join date : 19/01/2017 Age : 20 Đến từ : Việt NAm
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Fri Jan 20, 2017 6:09 am | |
| 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. | |
|
| |
nguyenphuonganhthd8a9 Tân Binh
Tổng số bài gửi : 7 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Fri Jan 20, 2017 4:14 pm | |
| Nguyễn Phương Anh 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. | |
|
| |
thikimxuyenlop.8a9 Tân Binh
Tổng số bài gửi : 4 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Sat Jan 21, 2017 6:24 pm | |
| Thi Kim Xuyến 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. | |
|
| |
nguyenphuonganhthd8a9 Tân Binh
Tổng số bài gửi : 7 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Mon Jan 23, 2017 2:13 pm | |
| Nguyễn Phương Anh 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. | |
|
| |
nguyenphuonganhthd8a9 Tân Binh
Tổng số bài gửi : 7 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Mon Jan 23, 2017 2:18 pm | |
| Nguyễn Phương Anh 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. | |
|
| |
hoangphuc8a8 Tân Binh
Tổng số bài gửi : 1 Join date : 23/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Mon Jan 23, 2017 8:13 pm | |
| phan nguyễn hoàng phúc Bài 1 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. | |
|
| |
hoanganhtuyeta9 Tân Binh
Tổng số bài gửi : 5 Join date : 19/01/2017
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Wed Jan 25, 2017 10:18 am | |
| Hoàng Ánh Tuyế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.
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. | |
|
| |
nguyenvuthanhduylop8a9 Tân Binh
Tổng số bài gửi : 7 Join date : 19/01/2017 Age : 20
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 26, 2017 11:24 am | |
| Program bt3; Var i,n:integer; S:longint; Begin S:=0; Readln(n); For i:=1 to n do if i mod 2 <>0 then S:=S+1; Writeln(S); End. | |
|
| |
nguyenvuthanhduylop8a9 Tân Binh
Tổng số bài gửi : 7 Join date : 19/01/2017 Age : 20
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP Thu Jan 26, 2017 11:33 am | |
| Program bt5; 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.
| |
|
| |
Sponsored content
| Tiêu đề: Re: BÀI 7: CÂU LỆNH LẶP | |
| |
|
| |
| BÀI 7: CÂU LỆNH LẶP | |
|