Viết chương trình tính tổng các số chẵn , lẻ từ 1 đến n (với n nhập từ bàn phím và n là số lớn hơn 1) . Vd1 : n = 10 Tổng số chẵn 1 đến 10: 30 Tổng số

0 bình luận về “Viết chương trình tính tổng các số chẵn , lẻ từ 1 đến n (với n nhập từ bàn phím và n là số lớn hơn 1) . Vd1 : n = 10 Tổng số chẵn 1 đến 10: 30 Tổng số”

1. Program Hotboy;

   Uses crt;

   var n,S,H,i:integer

   Begin

   Clrscr;

   Write(‘Nhap so n tu ban phim :’);

   Readln(n);

    For i:=1 to n do

           If (i mod 2=0 ) then S:=S+i;

           Else

       H:= H+i;

   Write(‘tonh chan la’,S,’tonh le la ‘,H);

   Readln

   End.

   Bình luận

2. var n,i,c,s:longint;

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do

   if i mod 2 =0 then c:=c+i else l:=l+i;

   writeln(‘Tong chan: ‘,c);

   write(‘Tong le: ‘,l);

   readln

   end.

   Bình luận