chương trình tính tổng N số tự nhiên đầu với N đc nhập từ bàn phím cho đuk nhaa mik đang cần gâp

0 bình luận về “chương trình tính tổng N số tự nhiên đầu với N đc nhập từ bàn phím cho đuk nhaa mik đang cần gâp”

1. Var i ,n : integer;

   S , T : real;

   Begin

   write (‘n=’) ; read (n) ;

   S:= 0;

   T:= 1;

   For i:= 1 to n do

   S:= S + i;

   hoặc:

   Tính tổng:

   program tinhtongnso;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

   writeln(‘Nhap so n’);readln(n);

   s:=0;

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

   writeln(‘Tong la:’,s);

   readln

   end.

   Chúc bạn học tốt!Nếu được cho mình xin CTLHN nhé!

   Bình luận

2. Program tinh_tong;

   Var i,n,S:integer;

   Begin

     Writeln(‘Nhap n: ‘);Readln(n);

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

     Writeln(‘Tong la: ‘,S);

   Readln;

   End.

   (Đã làm trên pascal rồi nha, yên tâm), chúc bạn học tốt nek, mik đi chuyên Tin nên cái này đúng 100% nha =)))

   Bình luận