Question

Viết chương trình bằng ngôn ngữ Pascal thực hiện: tính tổng n số nguyên với n được nhập từ bàn phím, giúp mik nha, mik đang cần gấp, mai thi rồi

Answer 1

uses crt;
var i,s,n: integer;
begin
clrscr;
write('Nhap vao so n = ');readln(n);
i:=1;
s:=0;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cua ',n,' so tu nhien dau tien la ',S);
readln;
end.