Question

bài 1: Viết chương trình nhập 1 số nguyên dương n hãy suất ra màn hình bảng cửu chương n.

bài 2: Viết chương trình nhập một số nguyên dương n hãy liệt kê tất cả các ước số lẻ của số nguyên dương n.

Answer 1

Bài 1:

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
writeln('bang cuu chuong ',n,' la: ');
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
end
else writeln('vui long nhap so nguyen duong n');
readln;
end.

Bài 2:

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
writeln('cac uoc so le cua ',n,' la: ');
for i:=1 to n do
if (n mod i=0) and (i mod 2=1) then write(i:4);
end
else writeln('vui long nhap so nguyen duong n');
readln;
end.