Program HOC24;
var i,n,d: integer;
a: array[1..1000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do read(a[i]); readln;
d:=0;
for i:=1 to n do if a[i] mod 2=0 then d:=d+1;
write('Co ',d,' so chan' );
readln
end.
Viết chương trình nhập 10 số tự nhiên bất kì từ bàn phím rồi thống kê xem chúng có bao nhiêu số chẵn, bao nhiêu số lẻ. Thực hiện in ra màn hình các số chẵn và số lẻ đó.
VD: INPUT: 5,6,9,10,20,23,7,8,13,31.
OUTPUT: + co 6 so le
+ co 4 so chan
+ cac so chan la: 6 10 20 8
+ cac so le la: 5 9 23 7 13 31
Viết chương trình nhập vào 5 số nguyên bất kì in ra màn hình số chẵn và số lẻ trong dãy số vừa nhập
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Viết chương trình nhập vào 1 số nguyên N tính và in ra màn hình tổng các số chẵn nhỏ hơn N.
Help meeeeeeeee!!!!
viết chương trình in ra màn hình tính tổng các số chẵn có trong dãy số từ 0 đến n (n được nhập từ bàn phím)
Đề bài: vct tính tổng các số chẵn, số lẻ từ 1-n ( được nhập từ bàn phím), sau đó in tổng chẵn, tổng lẻ ra màn hình
Hãy viết chương trình Pascal có sử dụng câu lệnh lặp
Yêu cầu:
hãy nhập vào từ bàn phím 6 số tự nhiên đầu tiên
hãy in ra màn hình các số chẵn trong 6 số tự nhiên trên
Viết chương trình Pascal để nhập vào một số tự nhiên n. In lên màn hình tổng các số chẵn từ 1 đến n. Mn giúp mình với!
VCT pascal nhập số n từ bàn phím xuất ra màn hình:
+dòng 1:các ước của n
+dòng 2:nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 1 đến n
+dòng 3: nếu n là số chẵn thì xuất ra màn hình các số hoàn hảo
+dòng 4:tổng các ước của n
(Bài thì cuối kỳ của mình nên cần rất gấp mong nhận được câu trả lời sớm)
