Viết chương trình in ra tổng số chẳn từ 1 đến 20

0 bình luận về “Viết chương trình in ra tổng số chẳn từ 1 đến 20”

1. Program tinh_tong ;

   Uses crt ;

   Var S,i : integer ;

   Begin

   S:= 0 ;

   For i:= 1 to 20 do

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

   Writeln (‘Tong so chan tu 1 den 20 la: ‘,S);

   Readln

   End.

   Bình luận

2. Program dau_tien;
   Uses Crt;
   Var i,s:integer;
   Begin
   Clrscr;
   i:=2;
   While (i>1) and (i<=100) do
   Begin
   s:=s+i;
   i:=i+2;
   End;
   Writeln(S);
   Readln;
   End.

   Bình luận