Welcome Guest
[Log In]
[Register]
| Chào mừng bạn đến diến đàn KTAK6.1 ! |
| bài pascal tham khao | |
|---|---|
| Tweet Topic Started: Thu 18 Feb 2010 20:41:17 (429 Views) | |
| dinhhoach | Thu 18 Feb 2010 20:41:17 Post #1 |
|
program Tong_chan; uses WinCrt; var amn,n,m,s_am,s_duong,i:integer; begin {nhap bien} writeln('Nhap n='); readln(n); writeln('Nhap m='); readln(m); {tinh tong duong} s_duong:=0; for i:=0 to m-1 do If i mod 2 = 0 then s_duong:=s_duong+i; {tinh tong am} amn:=0-n; for i:=-1 downto amn+1 do If i mod 2 = 0 then s_am:=s_am+i; {in ket qua} writeln('Tong cac so chan duong trong khoang [-',n,',',m,'] la: ',s_duong); writeln('Tong cac so chan am trong khoang [-',n,',',m,'] la: ',s_am); readln; End. có gì sai hay sửa chữa gì các bạn xem hộ rồi cho ý kiến nhá. |
![]() |
|
| eddiesawa | Sat 20 Feb 2010 23:21:18 Post #2 |
|
Administrator
|
program Tong_chan; uses crt; var amn,n,m,s_am,s_duong,i:integer; begin {nhap bien} writeln('Nhap n='); readln(n); writeln('Nhap m='); readln(m); {tinh tong duong} s_duong:=0; for i:=0 to m-1 do If i mod 2 = 0 then s_duong:=s_duong+i; {tinh tong am} amn:=0; for i:=-1 downto amn+1 do If i mod 2 = 0 then s_am:=s_am+i; {in ket qua} writeln('Tong cac so chan duong trong khoang [0,',m,'] la: ',s_duong); writeln('Tong cac so chan am trong khoang [-',n,',0] la: ',s_am); readln; End. |
![]() |
|
| eddiesawa | Sat 20 Feb 2010 23:22:59 Post #3 |
|
Administrator
|
lâu rồi ko động tới pascal.sai thì tcam nhé. hix. bài viết này mấy ngày nữa tớ chuyển sang mục khác cho đúng ndung nhé |
![]() |
|
| 1 user reading this topic (1 Guest and 0 Anonymous) | |
| « Previous Topic · TOP 5 VIP HỌC TẬP · Next Topic » |
| Track Topic · E-mail Topic |
3:39 PM Jul 11
|