Giúp mk câu 2+3 vs ạ mai mk thi rồi huhu TvT
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.
Bước 1:
- Nháy chuột chọn 1 ô trong cột ĐTB
- Mở dải lệnh Data và chọn lệnh Filter trong nhóm Sort & Filte
Bước 2:
- Nháy chuột vào biểu tượng mũi tên trên hàng tiêu đề cột ĐTB
-Nháy chuột chọn điểm thấp hơn 8.0 rồi nháy OK
Câu 3
Var st:string;
i,d:integer;
Begin
Write('Nhap xau ky tu ');readln(st);
For i:=1 to length(st) do
If st[i] in ['0'..'9'] then d:=d+1;
Write('Co ',d,' ky tu so');
Readln
End.
Câu 4
Var a:array[1..1000] of integer;
i,n:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
End;
Write('Cac so chia het cho 3 hoac 5 la: ');
for i:=1 to n do
If (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then write(a[i]:8);
Readln
End.
địa phương đã thưc hiện phòng trừ sâu bệnh bằng cách:
- Phương pháp thủ công: bắt sâu, bẫy đèn châu chấu,...
- Phương pháp hóa học: phun thuốc trừ sâu,...
- Phương pháp kiểm dịch: kiểm giống trước khi bán,...
- Sử dụng các thiên địch: ong, ếch,...
À bạn bổ sung cho mình 1 ý
Biện pháp canh tác và sử dụng giống tốt: làm đất, sử dụng giống chống sâu bệnh hại, gieo trồng đúng thời vụ, bón phân hợp lí, luân phiên các loại cây khác nhau,...
Nghệ thuật nổi bật:
- Nghệ thuật tương phản
- Nghệ thuật tăng cấp