Viết chương trình nhập vào số nguyên dương n tính và đưa ra màn hình tổng các số từ 1 đến n

Cách viết chương trình nhập vào số nguyên dương n tính và đưa ra màn hình tổng các số từ 1 đến n

uses crt;

var n,i,t:integer;

begin

clrscr;

repeat

write['Nhap n=']; readln[n];

until n>0;

t:=0;

for i:=1 to n do 

  if i mod 3=0 then t:=t+i;

writeln['Tong cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',t];

readln;

end.

Viết chương trình in ra màn hình tính tổng các số dương từ 1 đến n．với n Ɩà số nguyên được nhập ѵào từ bàn phím

uses crt;

var i，n，s: integer;

begin

clrscr;

write [‘nhap n: ‘];  readln [n];

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

writeln [‘tong la: ‘，s];

readln;

end.