1. Viết chương trình in ra màn hình các số đếm từ 1 đến 20, mỗi số in trên một dòng. 2. Viết chương trình in ra màn hình các số đếm từ 20 đến 10, mỗi số in trên một dòng. 3. Viết chương trình nhập vào N số nguyên từ bàn phím. Tính và in ra màn hình tổng của các số vừa nhập vào. 4. Viết chương trình nhập vào số nguyên N từ bàn phím. In ra màn hình các ước của N.

Câu 1 :

uses crt;

var i : byte;

begin

clrscr;

for i := 1 to 20 do writeln(i);

readln

end.

Câu 2 :

uses crt;

var i : byte;

begin

clrscr;

for i := 20 downto 10 do writeln(i);

readln

end.

Câu 3 :

uses crt;

var i, N, S : integer;

begin

clrscr;

write('Nhap so N : '); readln(N);

S := 0;

for i := 1 to N do S := S + i;

write('S = ', S);

readln

end.

Câu 4 :

uses crt;

var i, N : integer;

begin

clrscr;

write('Nhap so N : '); readln(N);

for i := 1 to N do

if N mod i = 0 then write(i,'  ');

readln

end.

1/

Program BTH;
uses crt;
var i:byte;
Begin
        clrscr;
        For i:=1 to 20 do
                writeln(i);
        readln;
end.

2/

Program BTH;
uses crt;
var i:byte;
Begin
        clrscr;
        For i:=20 downto 10 do
                writeln(i);
        readln;
end.

3/

Program BTH;
uses crt;
var n,i,s,k:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=1 to n do
        Begin
                write('Nhap so thu ',i,' : ');readln(k);
                s:=s+k;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

4/

Program BTH;
uses crt;
var n,i:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        writeln('Uoc cua ',n,' la: ');
        For i:=1 to n do
        Begin
                If n mod i=0 then write(i,' ');
        end;
        readln;
end.