Viết chương trình pascal: Cho S= 1+ 2+ ....+ n tính tổng các số lẻ, tích các số chẵn
2 câu trả lời
Mình không chắc là mình đã hiểu rõ đề, đây là bài mình làm theo cách hiểu đề của mình nếu có sai bạn thông cảm nhaa.
Program Hotboy;
Uses crt;
Var S,i,n: integer;
Begin
Clrscr;
S:=0;
Write('nhap n');
Readln(n);
For i:=1 to n do
If (i mod 2=1) then
S:=S+i;
Write('tong le ',n,'so tu nhien la',S);
If (i mod 2=0) then S:=S*i;
Write('tich la:',S);
Readln
End.
