nhập vào một số nguyên n.Viết chương trình tính tổng các số từ 1 đến n theo 2 cách S=1+2+3+...+n

2 câu trả lời

Mình sử dụng Pascal:

uses crt;

var i, n, T: integer;

Begin

   clrscr;

   write('Nhap so N: '); readln(n);

   T:=0;

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

   writeln('Tong tu 1 den ', n, ' la: ', T:2);

   readln;

End.

program ntn;

uses crt;

var n:longint;

begin

clrscr;

write('n=');readln(n);

write('s=',(n+1)*n/2:4:0);

readln

end.

Câu hỏi trong lớp Xem thêm