uses crt;
var e:array[1..150]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('E[',i,']='); readln(e[i]);
end;
dem:=0;
for i:=1 to n do
if e[i] mod 2=0 then inc(dem);
writeln('So cac so chan trong day la: ',dem);
readln;
end.
Nhập vào 100 số nguyên dương từ bàn phím in ra màn hình các số vừa nhập và đếm số lượng các số chẵn
Nhập vào một số nguyên và đưa ra dãy số ngược lại. Vd: 1234 -> 4321
Viết chương trình nhập 1 dãy số nguyên (N<250). Tính tổng các phần tử trong dãy và xuất ra màn hình dãy đó.Đếm số phần tử chẵn trong dãy và xuất ra màn hình.
Cho mảng gồm n số nguyên a1, a2, a3, ...., an. Hãy lập trình để đếm xem trong mảng có bao nhiêu số hoàn hảo ?
Viết chươg trình nhập vào mảng 10 phần tử sau đó đếm số phần tử là số chẵn. Xuất kết quả ra màn hình
Viết chương trình nhập từ bàn phím số nguyên dươngN (N<200) và dãy a gồm N số nguyên a1, a2,...an.Hãy xuất ra :
a, số lượng số chẵn.
b, số lượng số lẻ.
-c1 Nhập 3 họ tên r đưa ra họ tên dài nhất
c2: nhập dãy số A có N phần tử( N>=150), số K nguyên, tính số ước của K thuộc A
-mọi người giúp e với ạ hôm sau e kt rùi -
em cảm ơn ạ
1. Viết chương trình nhập vào 2 số nguyên dương a,b (a<b). Tính và đưa ra màn hình tổng các số chẵn và tổng các số lẻ trong phạm vi từ a --> b
2. Viết chương trình nhập vào số nguyên dương n (n được nhập tùy ý) xuất ra màn hình các số nguyên lẻ từ 5 --> n (n>=5)
3. Viết chương trình nhập vào 2 số nguyên dương m,n (m<n). Tính và đưa ra màn hình tích của các số nguyên chẵn trong phạm vi từ m --> n
4. Viết chương trình nhập vào 2 số nguyên dương x,y (x<y). Xuất ra màn hình dãy số nguyên dương từ x --> y và y --> x
Giúp em với ạ! Em cảm ơn nhiều ạ. Mai em kiểm tra rồi ạ.
Nhập vào mảng A có 1 phần tử nguyên . Hãy thực hiện :
a . Đếm các phần tử dương có trong mảng .
b . Tính tổng các phần tử chẵn có trong mảng .
c . Xuất các số lẻ và vị trí các số lẻ có trong mảng ra màn hình .
d . Tìm phần tử lớn nhất có trong mảng .
e . Sắp dãy A thành 1 dãy tăng
f . Nhập khóa K .Tìm K có xuất hiện trong dãy không , nếu có cho biết vị trí Kxuất hiện .
