Bài 1. Viết chương trình: -Nhập vào sốnguyên N. -Xuất ra màn hình các sốchẵn từ1 đến N. -Xuất ra màn hình các số lẻ từ 1 đến N. Bài 2. Viết chương trình: -Nhập vào sốnguyên N.For<biến đếm>:= <giá trị bắt đầu> to<giá trị cuối> do<câu lệnh>; 2-Xuất ra màn hình tổng các số từ 1 đến N. -Xuất ra màn hình tích các sốtừ1 đến N. Bài 3. Viết chương trình: -Nhập vào sốnguyên N. -Tính tổng các số lẻ từ 1 đến N và xuất quả ra màn hình. -Thực hiện đếm xem có bao nhiêu số lẻ từ 1 đến N và xuất kết quảra màn hình. Bài 4. Viết chương trình: -Nhập vào số nguyên N. -Tính tích các sốchẵn từ1 đến N và xuất kết quảra màn hình. -Thực hiện đếm xem có bao nhiêu số chẵn từ 1 đến N và xuất kết quả ra màn hình.

uses crt;
var     n,i,j:longint;
begin
        clrscr;
        write('Nhap n:');
        readln(n);
        write('so chan tu 1->n la:');
        for i:=1 to n do
        if i mod 2=0 then write(i,' ');
        writeln;
        write('so le tu 1->n la:');
        for j:=1 to n do
        if j mod 2<>0 then write(j,' ');
        readl;
end.

bài 2:

uses crt;ar     n,i,j,s,s1:longint;
begin
        clscr;
        rite('Nhap n:');
        radln(n);
        s1:=1;
        s:=0;
        write('tong cac so tu 1->n la:');
        fr i:=1 to n do s:=s+i;
        write(s);
        writeln;
        rite('tich các số từ 1->n la:');
        for j:=1 to n do s1:=s1*j;
        wrte(s1);
        readln;
end.

bài 3:

uses crt;
var     n,i,j,s,s1:longint;
begin
        clrscr;
        write('Nhập n:');
        radln(n);
        s1:=0;
        s:=0;
        for i:=1 to n do
        if i mod 2<>0 then s:=s+i;
        write'tong cac so le tu 1->n la:',s);
        writeln;
        or j:=1 to n do
        i j mod 2<>0 then inc(s1);
        write('co tat ca ',s1,' so le');
        rdln;
end.

bài 4:

ses crt;
var     n,i,,s,s1:longint;
begin
        clrscr;
        ite('Nhap n:');
        readln(n);
        s1:=0;
        s:=1;
        for i:=1 to n do
        f i mod 2=0 then s:=s*i;
        write('tích các số chẵn từ 1->n là:',s);
        writel;
        for j:=1 to n do
        if j mod 2=0 then inc(s1);
        wite('có tất cả ',s1,' số chẵn');
        readln;
end.

bài 1:

uses crt;
var     n,i,j:longint;
begin
        clrscr;
        write('Nhap n:');
        readln(n);
        write('so chan tu 1->n la:');
        for i:=1 to n do
        if i mod 2=0 then write(i,' ');
        writeln;
        write('so le tu 1->n la:');
        for j:=1 to n do
        if j mod 2<>0 then write(j,' ');
        readln;
end.

bài 2:

uses crt;
var     n,i,j,s,s1:longint;
begin
        clrscr;
        write('Nhap n:');
        readln(n);
        s1:=1;
        s:=0;
        write('tong cac so tu 1->n la:');
        for i:=1 to n do s:=s+i;
        write(s);
        writeln;
        write('tich cac so tu 1->n la:');
        for j:=1 to n do s1:=s1*j;
        write(s1);
        readln;
end.

bài 3:

uses crt;
var     n,i,j,s,s1:longint;
begin
        clrscr;
        write('Nhap n:');
        readln(n);
        s1:=0;
        s:=0;
        for i:=1 to n do
        if i mod 2<>0 then s:=s+i;
        write('tong cac so le tu 1->n la:',s);
        writeln;
        for j:=1 to n do
        if j mod 2<>0 then inc(s1);
        write('co tat ca ',s1,' so le');
        readln;
end.

bài 4:

uses crt;
var     n,i,j,s,s1:longint;
begin
        clrscr;
        write('Nhap n:');
        readln(n);
        s1:=0;
        s:=1;
        for i:=1 to n do
        if i mod 2=0 then s:=s*i;
        write('tich cac so chan tu 1->n la:',s);
        writeln;
        for j:=1 to n do
        if j mod 2=0 then inc(s1);
        write('co tat ca ',s1,' so chan');
        readln;
end.