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.