KB với nick mik :

Chuyên gia dạy múa ba lê cho con trai , học vip 1 tháng chỉ với 1 triệu

Đợi mình nhé

A nhé. Mình hỏi đứa lớp mình rồi nó học giỏi môn tin lắm

A hạ bút

100% đúng nha

Để chia 1 ô thành nhiều ô trong word, ta chọn ô cần tách rồi thực hiện Split Cells. rồi Number of columns.rồi Number of rows :))

giúp mk vs tuần sau thi rồi

Mình chỉ viết được pascal được không?

Cách vẽ hình thoi trong logo như sau:
-lt 45
-fd 150
-rt 90
-fd 150 rt 90
-fd 150 rt 90
-fd 150 rt 90

lt 45
fd 150
rt 90
fd 150 rt 90
fd 150 rt 90
fd 150 rt 90

à nâu :))

vnvnvnvn

Gì ấy bạn ở đây là hỏi câu về bài hc nhé, k lq:(((((((

 uses crt;

var a,b,c,d,e: array[1..100] of real;

hsg,hsk,hstb,hsy,i:integer;

begin

clrscr;

hsg:=0; hsk:=0; hstb:=0; hsy:=0;

write('nhap so hoc sinh trong lop');readln(n);

for i:=1 to n do begin writeln('diem mieng ban thu',i,'la:');readln(a[i]);end;

for i:=1 to n do begin writeln('diem 15p ban thu',i,'la:');readln(b[i]);end;

for i:=1 to n do begin writeln('diem giua ki ban thu',i,'la:');readln(c[i]);end;

for i:=1 to n do begin writeln('diem mieng ban thu',i,'la:');readln(d[i]);end;

{'nhap rieng khoi nham nhe'};

for i:=1 to n do begin e[i]:=(a[i]+b[i]+c[i]*2 + d[i]*4)/7;

if e[i]<5.0 then hsy:=hsy+1;

if (e[i]<6.5) and (e[i]>5.0) then hstb:=hstb+1;

if (e[i]>6.5) and (e[i]<8.0) then hsk:=shk+1;

if e[i]>8.0 then hsg:=hsg +1; end;

write('so ban dat hsg',hsg);

write('so ban dat hsk',hsk);

write('so ban dat hstb',hstb);

write('so ban dat hsy',hsy); readln

end.