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

0 bình luận về “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”

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

   

   Bình luận

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

   Bình luận