Program bai1;
uses crt;
var dem,n,i: integer;
begin
clrscr;
write('nhap n ='); readln(n);
dem:=0;
for i:= 1 to n do
if i mod 2 = 1 then
begin
write(i:3,',');
dem:= dem+1 ;
if dem mod 15 = 0 then writeln;
end;
readln;
end.
1. Viết CT in ra số lẻ nhỏ hơn hoặc bằng n .
2.viết Ct cho phép nhập n số và cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy ?
1.Viết CT in tất cả các ước của 1 số n(n nhập từ bàn phím).
2.Viết CT in ra các số chẵn nhỏ hơn hoặc bằng n ( n nhập từ bàn phím).
1. Viết CT in ra các số nguyên tố nhỏ hơn n vs yêu cầu dùng hàm để kiểm tra một số có phải là số nguyên tố hay ko?
2. Viết CT in dãy n số fibolacy.
1. Viết CT cho phép nhập n số và in ra thứ tụ ngược lại. Ví dụ
nhập 3 , 5 , 7 in ra 7 , 5 , 3.
Anh nào giúp em với ạ
Câu 1: anh(chị) hãy nhập vào một mảng gồm cso n số bất kì, sau đó in ra màn hình mảng đó.
Câu 2: in ra những số chẵn, lẻ, chia hết cho 3
Câu 3: in ra những số ở vị trí chẵn, lẻ
Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số.
bài 1:Viết chương trình nhập vào một mảng số nguyên gồm n phần tử(n<100) nhập từ bàn phím thực hiện các công việc sau:
a)In ra màn hình các phần tử của mảng vừa nhập.
b) Sắp xếp dãy số nguyên theo thứ tự tăng dần.
c) Nhập số nguyên x bất kì.Tính số chắn lớn nhất không được vượt quá x.
nhập 1 số n in ra các số từ 1 đến n kết thúc có dấu ! giữa các số được in ra và kí tự có 1 khoảng trống
Bài 1:Viết chương trình nhập một mảng số nguyên gồm n phần tử,thực hiện các công việc sau:
a.Đếm số lượng các phần tử lẻ
b.Tính tổng các phần tử chia hết cho 5
c.Tìm phần tử chẵn lớn nhất và vị trí của nó trong mảng
d.Sắp xếp mảng theo thứ tự tăng dần và in ra màn hình
e.Tìm các phần tử là số nguyên tố
f.In ra màn hình các phần tử của mảng nếu phần tử là số nguyên tố thì thay bằng chữ "X"
Bài 2:Cho số tự nhiên m có m chữ số.Viết chương trình xóa n pascal sao cho số thu được là số lớn nhất