Question

Câu 1: Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n (với n được nhập từ bàn phím, n là số nguyên dương).

Câu 2: Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n (Với n được nhập từ bàn phím)

Câu 3: Viết chương trình in ra tất cả các ước của một số n (Với n được nhập từ bàn phím)

Câu 4: Viết chương trình in bảng cửu chương n (Với n được nhập từ bàn phím)

Answer 1

Câu 1:

uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
writeln('cac so chan nho hon hoac bang ',n,' la: ');
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln('vui long nhap lai');
readln;
end.

Câu 2:

uses crt;
var i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+i;
writeln('tong cac so le nho hon hoac bang ',n,' la: ',t);
end
else writeln('vui long nhap lai');
readln;
end.

Câu 3:

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

Câu 4:

uses crt;
var i,n: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 lai');
readln;
end.