Viết chương trình tính tổng S=1+2+3+…+n.Trong đó n là số nguyên nhập từ bàn phím giúp mình với ạ , mình không giỏi tin lắm =(((

0 bình luận về “Viết chương trình tính tổng S=1+2+3+…+n.Trong đó n là số nguyên nhập từ bàn phím giúp mình với ạ , mình không giỏi tin lắm =(((”

1. Program Hotboy;

   Uses crt;

   Var S,n,i : Int64;

   Begin

   Clrscr; 

   S:=0;

   Writeln(‘nhap so tu ban phim’); readln(n);

   For i:= 1 to n do 

   begin

   S:=S+i; i:= i+1;

   end;

   Write(‘Tong S cua cac so tu 1 den n la’,S:3);

   Readln

   End.

   Bình luận

2. Program tinh_tong;

   Uses  crt;

   Var n: integer;

   s: longint;

   Begin

   write( ‘Nhap n: ‘); readln(n);

   s:=0;

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

   write(‘Tong la=’, s);

   readln;

   End.

   Bình luận