Viết chương trình tính TỔNG các số CHẮN và LẺ từ 1 đến n với n nhập từ bàn phím. Viết Chương Trình tính TỔNG các SỐ NGUYÊN LIÊN TIẾP S= 1+2+........+n Với n là cá SỐ NGUYÊN DƯƠNG NHẬP TỪ BÀN PHÍM.

Bài 1:

Program FNG;
Uses crt;
Var n,i,le,chan: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
                If i mod 2 = 0 then inc(chan,i)
                Else inc(le,i);
        Writeln('Tong chan: ',chan);
        Write('Tong le: ',le);
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
                s:=s+i;
        Write('S = ',s);
        Readln
End.

bài 1:

program oken;

uses crt;

var n,i,le,chan:longint;

begin

clrscr;

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

for i:=1 to n do

   if i mod 2 =0 then chan:=chan+i

       else le:=le+i;

writeln('tong chan: ',chan);

writeln('tong le: ',le);

readln;

end.

bài 2:

program oken;

uses crt;

var n,i,tong:longint;

begin

clrscr;

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

for i:=1 to n do

   ton:=tong+i;

writeln('tong: ',tong);

readln;

end.