Lê T. Minh Phượng
16/11/2003
| Số câu hỏi | 0 |
| Số câu trả lời | 2 |
| Điểm | 5 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (2)
-
Lê T. Minh Phượng đã trả lời trong câu hỏi: cao nhân nào giúp mình với Cách đây 6 năm
c)
PROGRAM BAI1c;
VAR N, TBchan, TBle: integer;
BEGIN
WRITE ('Nhap N=');
READLN (N);
If (N mod 2) = 0 Then
TBchan := (N+2)/2;
TBle := N/2;
If (N mod 2) = 1 Then
TBchan := (N+1)/2;
TBle := (N+1)/2;
WRITELN ('TBchan =', TBchan, 'TBle =', TBle);
READLN;
END.
d)
PROGRAM BAI1d;
VAR N, k, S, i: integer;
BEGIN
WRITE ('Nhap N, k');
READLN (N, k);
S := 0;
For i := 1 to N Do
If (i mod k) = 0 Then S := S + i;
WRITELN ('Tong cac so chia het cho k =' S);
READLN;
END.
-
Lê T. Minh Phượng đã trả lời trong câu hỏi: cao nhân nào giúp mình với Cách đây 6 năm
a)
PROGRAM BAI1a;
VAR N, Tle, Tchan: integer;
BEGIN
Write ('Nhap N =');
Readln (N);
If (N mod 2) = 0 Then
Tle := N*((N - 2)/2 + 1)/2;
Tchan := (N + 2)*((N - 2)/2 + 1)/2;
If (N mod 2) = 1 Then
Tle := (N + 1)*((N-1)/2 +1)/2;
Tchan := (N + 1)*((N - 3)/2 + 1)/2;
WRITELN ('Sle =', Sle, 'Schan =', Schan);
READLN;
END.
b)
PROGRAM BAI1b;
VAR N; Sle; Schan: integer;
BEGIN
Write ('Nhap N=');
Readln (N);
If (N mod 2) = 0 Then
Sle := (N-2)/2+1;
Schan := (N-2)/2+1;
If (N mod 2) = 1 Then
Sle := (N-2)/2+1;
Schan := Sle - 1;
WRITELN ('Sle =', Sle, 'Schan =', Schan);
REANDL;
END.
