tính tổng các số từ 1 đến n không dùng for, while, repeat;

2 câu trả lời

program bai_giai;

uses crt;

var n:longint;

begin

clrscr;

write('nhap n:');readln(n);

write('tong cac so tu 1 den n la:',(n+1)*n/2);

readln

end.

uses crt;
var n:longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   write('Tong cac so tu 1 den n: ',n*(n+1) div 2);
readln
end.

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