Viết chương trình tính tổng các số tự nhiên từ 30 đến 60

0 bình luận về “Viết chương trình tính tổng các số tự nhiên từ 30 đến 60”

1. program oken;
   uses crt;
   var s,i: integer;
   begin
           clrscr;
           for i:=30 to 60 do
                   s:=s+i;
           writeln(‘Tong cac so 30->60: ‘,s);
           readln;
   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var s,i: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=30 to 60 do s:=s+i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận