uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write('*');
writeln;
end;
readln;
end.
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write('*');
writeln;
end;
readln;
end.
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Viết chương trình in ra màn hình các số từ 1 => n . Sử dụng câu lệnh while..do
Sử dụng lệnh lặp for..do. Viết chương trình in ra 50 số chẵn tự nhiên đầu tiên?
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
Viết chương trình in ra màn hình các phép tính sau:
a/ 16 div 3; b/ 15 mod 3; c/1.2+1.2.3+1.2.3.4.
Viết Chương Trình Nhập Vào Từ Bàn Phím 2 Số Nguyên Khác Nhau , Sau Đó In Ra Màn Hình Với Thứ Tự Không Giảm
Viết chương trình nhập chiều dài, chiều rộng hình chữ nhật. Tính chu vi, diện tích hình chữ nhậtvà in ra màn hình.
Viết chương trình nhập biến mảng M gồm 100 phần tử thuộc kiểu số nguyên +nhập các phần tử và in ra màn hình + tìm và in ra màn hình giá trị lớn nhất trong dãy số vừa nhập +tìm và in ra màn hình giá trị nhỏ nhất trong dãy số vừa nhập