Program hoc24;
Var i,d,n : integer;
T: longint;
Begin
Write('n='); readln(n);
D:=0; t:=0;
For i:=1 to n do
Begin
If i mod 2=0 then
Begin
inc(d);
T:=t+i;
End;
End;
Writeln('co ',d,' so chân trong day');
Write('tong cac so chan trong day la :', t);
Readln
End.
cho dãy số 1,2,3,4,5,...n (nhập từ bàn phím )
a) viết chương trình đếm số chắn
b) viết chương trình tính tổng các số chắn trong dãy
Nhập vào dãy số gồm N phần tử đếm các số dương tính tổng và in ra màn hình các số đó
viết chương trình cho phép nhập 1 dãy gồm n số nguyên từ bàn phím và thực hiện : a. tính tổng và điếm các phần tử lẻ trong dãy số?
b. in ra các số nguyên tố có trong dãy?
Viết chương trình nhập vào dãy số n số nguyên in ra dãy số vừa nhập tính tổng các phần tử chẵn trong dãy số tìm số lớn nhất trong dãy số tính tổng các phần tử lẻ trong dãy số tìm số nhỏ nhất trong dãy số
Viết chương trình nhập vào dãy số gồm n số nguyên in ra dãy số vừa nhập tính tổng các phần tử chẵn trong dãy số tìm số lớn nhất trong dãy số tính tổng các phần tử lẻ trong dãy số tìm số nhỏ nhất trong dãy số
1.VCT nhập vào 1 dãy số. Tính tổng các số chẵn , tổng các số lẽ.
2.VCT nhập vào 1 dãy số. Đếm và in ra các số >0,<0.
Nhanh giúp mình với mai mình thi rồi .
Cho một dãy gồm N các số nguyên (nhập từ bàn phím). Hãy viết chương trình thực hiện các yêu cầu sau: a. Tìm và tính tổng các số nguyên tố trong dãy. b. Tìm và in ra các số nguyên dương, nguyên âm có trong dãy, tìm số nguyên âm lớn nhất và số nguyên dương nhỏ nhất của dãy. c. Sắp xếp các số nguyên dương lên đầu dãy, các số nguyên âm tiếp theo và cuối cung là số 0. ( Nếu loại số nào không có thì in ra “ Trong day khong có so ...”)
Viết chương trình tìm số lớn nhất trong dãy số gồm n số nguyên được nhập từ bàn phím và đếm các chẵn có trong dãy
viết ct nhập 1 dãy số gồm n số từ bàn phím, in ra dãy vừa nhập, in ra số lẻ, chẳn trong dãy, tính tổng các số chẳn và lẻ, tính trung bình cộng các số
