viết chương tình pascal tính tổng n số tự nhiên liên tiếp đầu tiên:

uses crt;

var i,n,s: integer;

begin

clrscr;

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

s:=0;

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

writeln ('Tong la: ',s);

readln;

end.

 -----------------------------

viết chương trình pascal nhập số nguyên dương n, tính tổng các số lẻ nhỏ hơn hoặc bằng n:

uses crt;

var i,n,s: integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if i mod 2<>0 then s:=s+i;

writeln ('Tong la: ',s);

readln;

end.

-----------------------

viết chương trình pascal nhập số nguyên dương n, tính tổng các số chẵn nhỏ hơn hoặc bằng n

uses crt;

var i,n,s: integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if i mod 2=0 then s:=s+i;

writeln ('Tong la: ',s);

readln;

end.

viết chương tình pascal tính tổng n số tự nhiên liên tiếp đầu tiên:

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 ',n,' so tu nhien dau tien la: ',s);
readln;
end.

viết chương trình pascal nhập số nguyên dương n, tính tổng các số lẻ nhỏ hơn hoặc bằng n:

uses crt;
var i,n,s: integer;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
if i mod 2<>0 then s:=s+i;
writeln('Tong cac so le be hon hoac bang ',n,' la: ',s);
readln;
end.

viết chương trình pascal nhập số nguyên dương n, tính tổng các số chẵn nhỏ hơn hoặc bằng n:

uses crt;
var i,n,s: integer;
begin
clrscr;
write('nhap n: ');readln(n);
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln('Tong cac so chan be hon hoac bang ',n,' la: ',s);
readln;
end.