Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var x,n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then t:=t+x;
end;
writeln(t);
readln;
end.
program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);
end.
Em nên tạo các đối tượng theo trình tự như hình vẽ
Hình chữ nhật ở trung tâm được vẽ đầu tiên vì đây là hình nền, cần ở dưới các đối tượng khác.
Bộ nhớ ngoài/Bộ nhớ trong có thể thực hiện trước 1 đối tượng rồi sao chép lại.
Thiết bị vào/ Thiết bị ra... có thể thực hiện trước 1 đối tượng rồi sao chép lại.
uses crt;
var st:array[1..100]of string;
a,b,c:array[1..100]of real;
i,n:integer;
max:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(st[i],a[i],b[i],c[i]);
max=(a[1]+b[1]+c[1])/3;
for i:=1 to n do
if (max<(a[i]+b[i]+c[i])/3) then max:=(a[i]+b[i]+c[i])/3;
writeln(max:4:2);
readln;
end.
Theo em không nhất thiết phải chuyển phần bên ngoài đối tượng thành ảnh đen trắng vì tuy nó tăng thêm sự nổi bật hơn nhưng khi thay đổi độ rực màu và độ sáng cũng đã làm nổi bật được đối tượng, và em có thể không cần thực hiện bước này
Nếu đã khai báo hằng PI= 3,14 thì sẽ không thể gán lại trong phần thân nữa. Vì khi ta gán 1 giá trị mặc định thì ở phần thân chương trình không thể gán lại được nữa
thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko
mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !