uses crt;
var a:array[1..15] of integer;
i,dem:byte;
begin
clrscr; dem:=0;
for i:=1 to 15 do
write('Nhap a[',i,']= ');readln(a[i]);
if a[i]>0 then inc(dem);
end;
writeln('Co ',dem,' phan tu duong');
readln;
end.
program dem_duong;
var A:array[1..15] of integer;
i,d:byte;
clrscr;
d:=0;
write('A[',i,']= '); readln(A[i]);
if A[i]>0 then d:=d+1;
write('Co ',d,' so duong');
What about going to the cinema tonight?
Vẽ chibi vui vẻ P/s : Mai đc về quê chơi rồi . Nhớ quê quá , Tết chưa về
$\frac{-5}{7}$ .$\frac{2}{11}$ +$\frac{-5}{7}$+1$\frac{-5}{7}$ 50%.1 $\frac{1}{3}$ .20. $\frac{7}{35}$ .0,75
tổng của số bị trừ, số trừ và hiệu là 181314. Nếu ở số trừ lần lượt thay chữ số 0 ở hàng đơn vị bằng chữ số 7, thay chữ số 9 ở hàng chục bằng chữ số 6, thay chữ số 3 ở hàng trăm bằng chữ số 2 thì được hiệu. Tìm số bị trừ và hiệu.
đà nẵng có những điều kiên nào để phát triển ? em có sáng kiến nào để giới thiệu về danh lam thắng cảnh nổi tiếng ở TP.Đà Nẵng cho các bạn bè quốc tế được biết đến?
Tim mot so biet 20 phan tram cua no la 16. So do la??
Típ tục vẽ Anime đang ôn bài đi. Không chép mạng Không spam ( spam = bc ) Vẽ đẹp đẹp chút hộ mình nhé ( 60 đ đấyyyy ) Màu/không màu; vẽ app/vẽ tay đều được. NL : ai nói chuyện với mình đuyyy 👉👈
Cần ai đóa vote + cảm mơn Vẽ đậu mầm ( nếu làm đủ điều kiện trên + nhanh = hay nhất ) Nick chính dưới bình luận
Mong mọi người giúp em tờ nay hộ em vs ạ em dang cần gấp em sẽ đành giá 5 sao tờ 1
Mọi người giúp em với ạ 🥰🥰 Tìm nghiệm các đa thức sau a) F(x)=3x-6 b) H(x)=-5x+30 c) Q(x)=-5x^2+5x d) P(x)=x^2-1 e) A(x)=x^3+4x f) B(x)=x^3-4x m) M(x)=x^3-4x n) N(x)= x^4-8x
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
