Lập trình tính tổng sau S=1+2+3+4+…+100

0 bình luận về “Lập trình tính tổng sau S=1+2+3+4+…+100”

1. Program Tinh_tong;

   Uses Crt;

   Var i, S: Integer;

   Begin Clrscr;

   S:=0;

   i:=1;

   While S>=100 do Begin S:=S+i; i:=i+1;

   End;

   Writeln(‘Ket qua’,S);

   Readln;

   End.

   toán học

   S=5050

   Bình luận

2. Program Tinh_tong;

   Uses Crt;

   Var i, S: Integer;

   Begin Clrscr;

   S:=0;

   i:=1;

   While S>=100 do Begin S:=S+i; i:=i+1;

   End;

   Writeln(‘Ket qua’,S);

   Readln;

   End.

   xin hay nhất! :)))

   Bình luận