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.
program DoanSo;
uses crt;
var
low, high, guess, answer: integer;
response: char;
begin
clrscr;
low := 1;
high := 120;
writeln('Chon mot so tu 1 den 120 va ghi so do ra giay.');
writeln('Nhan phim bat ky khi san sang.');
readln;
repeat
guess := (low + high) div 2; // Đoán số trung bình của khoảng
writeln('So cua ban la ', guess, ' phai khong? (d/c/t)');
readln(response);
// Kiểm tra phản hồi từ người chơi
case response of
'd': begin // Trường hợp đoán đúng
writeln('May tinh da doan dung so cua ban!');
end;
'c': begin // Trường hợp số đoán cao hơn
high := guess - 1;
end;
't': begin // Trường hợp số đoán thấp hơn
low := guess + 1;
end;
end;
until response = 'd'; // Lặp cho đến khi đoán đúng
readln;
end.
( Các phần câu in đậm là các phần mình giải thích về code cho bạn dễ hiểu, không cần cho thiết nên khi chạy chương trình không cần nhé ! )
Đề 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đề 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.
mỗi câu a,b,c thì readln rồi end nhé
- Để lọc bảng dữ liệu trong Hình 1 để hiển thị chỉ các lớp khối 7 và khối 8, em có thể làm theo các bước sau:
+ Chọn bảng dữ liệu bằng cách nhấp vào một ô bất kỳ trong bảng.
+ Trên thanh menu, chọn "Data" và sau đó chọn "Filter".
+ Trên dòng tiêu đề của cột "Lớp", nhấp vào biểu tượng lọc (hình tam giác) để mở danh sách lọc.
+ Bỏ chọn hết các lớp khác khối 7 và 8 bằng cách nhấp vào ô "Select All" và sau đó bỏ chọn ô của các lớp không phải khối 7 và khối 8.
+ Nhấn nút "OK" để áp dụng bộ lọc.
- Lọc theo điều kiện để hiển thị chỉ các lớp có tỉ lệ số học sinh giỏi của lớp lớn hơn tỉ lệ học sinh giỏi của toàn trường.
+ Tính tỉ lệ số học sinh giỏi của toàn trường bằng cách chia tổng số học sinh giỏi cho tổng số học sinh và nhân với 100 để tính phần trăm, sử dụng hàm sum
+ Chọn bảng dữ liệu bằng cách nhấp vào một ô bất kỳ trong bảng.
+ Trên thanh menu, chọn "Data" và sau đó chọn "Filter".
+ Trên dòng tiêu đề của cột "Tỉ lệ (%)", nhấp vào biểu tượng lọc (hình tam giác) để mở danh sách lọc.
+ Chọn "Number Filters" và sau đó chọn "Greater Than" trong danh sách.
+ Trong hộp thoại "Custom AutoFilter", nhập tỉ lệ số học sinh giỏi của toàn trường vào ô "is greater than" và sau đó nhấn nút "OK".
+ Sau khi bộ lọc được áp dụng, chỉ các lớp có tỉ lệ số học sinh giỏi của lớp lớn hơn tỉ lệ học sinh giỏi của toàn trường sẽ được hiển thị trong bảng dữ liệu.
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
begin
delay(50);
writeln('a');
end;
readln;
end.
VD: 2,4,6
- số hàng trăm là 2
- số hàng chục là 4
-số hàng đơn vị là 6
- Tổng các chữ số:2+4+6=12
GIÚP MK VS MK ĐANG CẦN GẤP!!! 
Để cửa sổ không gian 3D ta thực hiện chọn Hiển thị, sau đó chọn Hiển thị dạng 3D. Màn hình làm việc 3D xuất hiện và có thể bắt đầu làm việc.
Đáp án: A