Viết chương trình tính tổng các số từ 1 đến 5.

0 bình luận về “Viết chương trình tính tổng các số từ 1 đến 5.”

1. Program Hotboy;

   Uses crt;

   Var s,i,n: longint;

   Begin

   Clrscr;

   S:=0;

   For i:=1 to 5 do

   S:=S+i;

   I:=i+1;

   Write(‘tong  la’,S);

   Readln

   End.

   Bình luận

2. uses crt;
   var s,i,n: longint;
   begin
      clrscr;
      s:=0;
      for i:=1 to 5 do 
      begin
         s:=s+i;
         i:=i+1;
      end;
      write(‘Tong la: ‘,s);
      readln
   end.

   Bình luận