lập trình tính các tổng s sau với n nhập vào từ bàn phím s =1+2+3+…+n Giúp vs ạ

0 bình luận về “lập trình tính các tổng s sau với n nhập vào từ bàn phím s =1+2+3+…+n Giúp vs ạ”

1. Chương trình:

   Program tinh_tong;

   Uses crt; 

   Var S,i,n : integer; 

   Begin 

   S:=0;

   Writeln (‘Nhap n=’); 

   Readln (n);

   For i:=1 to n do 

   S:= S+i;

   Writeln (‘Tong S la:’,S);

   Readln 

   End.

   Thuật toán: (trong ảnh).

   

   Bình luận

2. program ct;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   s:=0;

   for i:=1 to n do s:=s+i;

   writeln(‘tong la:’,s);

   readln

   end.

   Bình luận