Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Mai

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)

Nguyễn Lê Phước Thịnh
31 tháng 3 2020 lúc 9:24

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.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Lâm Khả Doanh
Xem chi tiết
Nguyễn Gia Huy
Xem chi tiết
Kim Chi
Xem chi tiết
DinoDrang
Xem chi tiết
Nguyenthanh
Xem chi tiết
Lan Phương
Xem chi tiết
Bảo Trâm
Xem chi tiết
Bảo Trâm
Xem chi tiết
trinhtrannamhoa
Xem chi tiết
hoangvinh
Xem chi tiết