cách 1
program ct;
uses crt;
var A:array[1..1000] of integer;
n,i:integer;
S:longint;
begin clrscr;
writeln('Nhap so n: '); readln(n);
for i:=1 to n do
begin writeln('Nhap phan tu thu ',i,': '); readln(A[i]);
if A[i] mod 2=0 then S:=S+A[i]; end;
for i:=1 to n do if A[i] mod 2=0 then write(A[i]:3); writeln('Tong cac so chan la: ',S);readln;
end.
var A:array[1..100] of integer;
i,n:integer;
write('Nhap so n: '); readln(n);
begin
writeln('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
S:=0;
if A[i] mod 2=0 then writeln(A[i]:3);
if A[i] mod 2=0 then S:=S+A[i];
writeln('Tong cac so chan la: ',S);
readln;
Học tốt!
Giải giùm mình bài tìm x,biết nha
Viết đoạn văn giới thiệu về bản thân bằng tiếng Anh Anh giúp mình nhé mình cần gấp ngàn thôi nhé
cho tam giác ABC có AB=AC. đường tròn tâm (O) đường kính AB=2R cắt BC,AC lần lượt tại I và K. tiếp tuyến của đường tròn (O) tại B cắt AI tại D và H là giao diểm của AI và BK. a) chứng minh IHKC nội tiếp được đường tròn, b) chứng minh BC là tia phân giác của góc DBH. Và tứ giác BDCH là hình thoi c) tính diện tích hình tron ngoại tiếp tứ giác IHKC theo R trong trường hợp tam giác ABC đều.
Tại sao doanh nghiệp nhỏ dễ quản lý và mở rộng quy mô hơn kinh doanh hộ gia đình? Tại sao doanh nghiệp thường thiếu thông tin thị trường về trình độ quản lý chuyên nghiệp? Giúp mik vs mik cần gấp😭
ai giúp mình bài này với ạ, mình cảm ơn nhiều
cho đường tròn tâm O đường kính AB.TRên đường tròn lấy 1 điểm C sao cho AC>AB.CÁc tiếp tuyến tại A và C cắt nhau tại D,BD cắt (O) tại E.Từ O kẻ đường thẳng song song AD cắt BC tại M. a, CM DMCO là hình thang cân b.Gọi N là giao điểm AE và DM.AC cắt OD tại H.Cm HN//OC c, AC cắt DM tại S,BS cắt (O) tại I.Cm N,C,I thẳng hàng
Giúp em chọn đáp án câu 3,9,10 Em cảm ơn a
giải bất phương trình: x^4-7x^3+25x^2-49x+30>=0
1.Vai trò thực vật đối với con người. 2.Một số cây có hại cho sức khỏe con người.
Viết phương trình đường thẳng đi qua hai điểm A (1;1) và B(-2;7)
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
