Lập trình nhập số nguyên N với N>10. đếm và đưa ra màn hình trong phạm vi từ 1 đến N. Có bao nhiêu số chẵn và tính tổng các số lẻ

huynhtanhoang08082002

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

thaomhhy

Program BTT;
Uses crt;
Var n,i,d,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; d:=0;
For i:=1 to n do
Begin
If i mod 2 = 0 then inc(d);
If i mod 2 = 1 then s:=s+i;
End;

Writeln('Co ',d,' so chan');
Write('Tong cac so le: ',s);
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

hoasuongrong_255

uses crt;

var a : array[1..100] of integer;

i, n, s, dem : integer;

begin

clrscr;

write('nhap so luong phan tu trong day: ');

readln(n);

s := 0;dem := 0;

if n > 10 then

begin

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');

readln(a[i]);

if a[i] mod 2 = 0 then dem := dem+ 1

else s := s + a[i];

end;

writeln('tong so le : ', s );

writeln('co ', dem ,' phan tu chan');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Theo em hiện nay trên thế giới những nơi nào có nguy cơ xảy ra chiến tranh?chúng ta cần làm gì để thế giới kh còn chiến tranh

Một hộp có chứa 4 quả cầu màu đỏ. 5 quả cầu màu xanh và 7 quả cầu màu vàng. Lấy ngẫu nhiên 4 quả cầu tử hộp đó. Tinh xác suất sao cho 4 quả cầu chọn được không cùng màu

Xác định cthh của các hợp chất sau a: Một hợp chất khí có thành phần phần trăm theo khôi lượng là 82,76%C và 17,24%H.Biết hợp chất này có tỉ khối đối với không khí là 2 Cần gấp để thi hk 1

cho 4 điểm A,B,C,D bất kì. Khi đó vecto AB - DC +BC-AD bằng vecto nào? a.2DC b.AC c.0 d.BD

Mn có nhìn thấy rõ ko ạ? Mn cố gắng giúp mk với nhé >< Nhanh đi, mk đang cần gấp lắm :<< Vote 5* và cám ơn nè :">

Anh chị nào xinh trai đẹp gái giúp em lập giàn ý cho bài văn "đóng vai ông hai kể lại truyện Làng" với ạ!!! Em cảm ơn!!!

B1: Biết 800g rượu có thể tích là 1l a) Tính khối lượng riêng của rượu b) Bao nhiêu lít nước sẽ có khối lượng bằng khối lượng của 800g rượu?

Làm giúp em với ạ Em cần gấp lắm ạ Mong Anh(Chị) giúp em ạ Đề: trong ảnh.

hàm số nào sau đây là hàm số lẻ y=căn bậc 2 của x+1 y=/x3-x/ y=x2+x+1 y=x3-x

Viết kịch bản chú mèo vẽ hình vuông có độ dài cạnh là 100 bước trong scratch

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến