mk xin lỗi mk hoàn toàn k đăg lên nhữg câu hỏi như vày đâu! k bt sao mà nó bị z ak ! xl nhìu

mk đag mún khắc phục bằng cách 1 là xoá lun, hai là cập nhật lại bằg câu hỏi khác, mà mk chưa bt cách lm, mấy bn chỉ mk nha, chứ mk k mún nhữg câu hỏi này làm phiền mấy bn âu,xl nhìu

rất thích nhưng ko chơi hehe

bạn có chơi clank op clank ko

mk k có đăg câu hỏi này nhé, mk k bt máy bị làm sao ak, hiện lên tùm lum

mk k bt máy mk bị sao ik! hồi nãy mk có xem qua câu hỏi của một bn y chag câu này lun, rồi mk vào word coppy cái đề của thầy vào hỏi mấy bn đã đời nó hiện ra câu hỏi ntn! thôg cảm cho mk nhá. nó chả hiện mộtt cái mà cả đốg lun

mk đag mún khắc phục bằng cách 1 là xoá lun, hai là cập nhật lại bằg câu hỏi khác, mà mk chưa bt cách lm, mấy bn chỉ mk nha, chứ mk k mún nhữg câu hỏi này làm phiền mấy bn âu,xl nhìu

Uses CRT;

Var TB : real;

BEGIN

clrscr;

repeat

begin

write('Moi ban nhap diem trung binh: ');

Readln(TB);

end;

until (TB>0) and (TB<10);

If (TB >= 8) then write('hoc luc gioi') else

If (TB>=6.5) then write('hoc luc kha') else

If (TB>5) then write('hoc luc trung binh') else

If (TB>3.5) then write('hoc luc yeu') else

write('hoc luc kem');

Readln;

END.

Uses CRT;

Var TB : real;

Begin

clrscr;

Readln(TB);

If TB >= 8 then write('hoc luc gioi') else

If 6.5<=TB<8 then write('hoc luc kha') else

If 5<=TB<6.5 then write('hoc luc trung binh') else

If 3.5<=TB<5 then write('hoc luc yeu') else

write('hoc luc kem');

Readln;

End.

Bạn nhận một thông báo lỗi trên XBOX nói rằng bạn cần phải mở NAT để chương trình trò chơi có thể vận hành một cách hiệu quả. Bạn tìm thông tin đó ở đâu? (Chọn 2)

a. Bing

b. Windows Live

c. XBOX Expert forum

d. Windows 7 Control Panel

Lớp mình cũng cãi nhau inh ỏi vì cái chuyện này -.-. Cô giáo mình bảo là 5*5>=25 là đúng

5*5>=25 là đúng

HAHAHAHAHA

1:

a) Sai

b) Sai

c) đúng

d) sai

2:

câu lệnh lặp 6 lần

giá trị của s là 12

Mình cảm ơn bạn nhiều nha

Program HOC24;

var i,n,q,j,k,l: integer;

t: longint;

a: array[1..5000] of integer;

f1,f2: text;

const fi='QSUM.INP' ;

fo='QSUM.OUT' ;

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

readln(f1,n,q);

for i:=1 to n do read(f1,a[i]);

readln(f1);

for k:=1 to q do

begin

readln(f1,i,j);

t:=0;

for l:=i to j do t:=t+a[l];

writeln(f2,t);

end;

close(f1);

close(f2);

end.

giúp  mình với mmik cần gấp