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.
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
By Gianna
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.