Câu 1:
uses crt;
var a: array[1..10] of real;
i: integer; s:real;
begin
clrscr;
for i:=1 to 10 do readln (a[i]);
for i:=1 to 10 do
if a[i]<0 then s:=s+sqr(a[i]);
writeln ('tong binh phuong la: ',s);
readln;
end.
Câu 2:
var a: array[1..100] of integer;
i,n: integer;
readln(n);
for i:=1 to n do readln (a[i]);
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2 =0) then write(a[i],' ');
var a: array[1..10] of integer;
s,i: integer;
for i:=1 to 10 do readln (a[i]); {nhập mảng}
for i:=1 to 10 do if a[i]<0 then s:=s+sqr(a[i]);
Dẫn 4,2 gam hỗn hợp khí A gồm metan và axetilen đi qua dd brom dư thấy có 32 gam brom phản ứng. Tính phần trăm số mol của metan trong hỗn hợp A
giúp với(phiền mọi người zoom ảnh ra) cần giúp bài hình
Giải hộ mình bài 2a nhà,cảm ơn các bạn Tặng 50đ luôn á
Một ly nước có dạng hình trụ có chiều cao là 15cm, đường kính đáy 5cm, lượng nước trong ly cao 10cm a) Lượng nước đc chứa trong ly là bao nhiêu cm khối? b) Ng ta thả vào ly nước 5 viên bi hình cầu có cùng thể tích, đồng chất và ngập hoàn toàn trong nước làm nước trong ly dâng lên bằng miệng ly. Hỏi thể tích của mỗi viên bi là bao nhiêu milimet khối (độ dày, đế ly là không đáng kể)
Mọi người ơi giải giúp mình với
cú pháp khai biến mảng nào sai: a)a:array[ 1...100]off real; b)a:array[ 1..100]off real; c)a:array[ 100..1]off real; d)a:aray[ 3..10.5]off real; Câu C với câu D cái nào sai ạ;-;
Mọi người ơi em đặt câu hỏi này mà mà bạ này trả lời bị trắng là sao ạ
bài viết về your house in the future kèm bản dịch nhé. Đảm bảo 100% và không được copy trên mạng dù chỉ là tham khảo. thanks everybody
sắp xếp 1.do/brother/what/free/in/his/does/your/time 2.at/corner./next/turn/right/the 3.PhuQuoc/I/to/Island./went
Giúp mình với mình hữa vote 5 sao và tlhn
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
