Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Ngọc

Viết chương trình nhập N số nguyên từ bàn phím tính tổng các số chẳn và tổng các số lẻ của dãy số 

Thế Thôi
24 tháng 4 2022 lúc 21:21

uses crt;
var i,n,s,a,v,t:longint;
begin
clrscr;
write('So lan nhap so vao:'); readln(n);
for i:=1 to n do
begin
s:=s+1;
write('Nhap so thu',s,':'); readln(a);

if(a mod 2=0) then
t:=t+a;
if (a mod 2 <> 0) then
v:=v+a;
end;
writeln('Tong cac so le la:',v);
writeln('Tong cac so chan la:',t);
readln
end.

Tham khảo nha!


Các câu hỏi tương tự
Nhật
Xem chi tiết
minh dương
Xem chi tiết
ℍ𝕠̣𝕔 𝔻𝕠̂́𝕥
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Ly Khánh
Xem chi tiết
Đào Cẩm
Xem chi tiết
Hằng Trương thị thu
Xem chi tiết
nguyễn thu thủy
Xem chi tiết
Nguyễn minh quân
Xem chi tiết