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.
Phát biểu nào sau đây không phải là đặc điểm của Internet
A.Kết nối hai máy tính với nhau.
B.Kết nối các máy tính trong một nước.
C.Kết nối nhiều mạng máy tính trên phạm vi toàn cầu.
D.Kết nối các máy tính trong một thành phố.
Bắt đầu
Gán cho số bí mật một giá trị ngẫu nhiên trong khoảng từ 1 - 100
Hỏi và nhận giá trị từ bàn phím, lưu vào biến trả lời
Hiển thị số bí mật trong 2 giây
Hiển thị số trả lời trong 2 giây
Kết thúc
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. Chiếc máy tính cơ khí đầu tiên là Pascaline.
2. Chiếc máy tính này cho phép thực hiện các phép toán cộng, trừ.
Bước 1: Nhập số n (n là số tự nhiên)
Bước 2: Xét số dư khi chia n cho 2
Bước 3: Nếu số dư là 1 thì ghi ra màn hình n là số lẻ, ngược lại thì ghi ra màn hình n không là số lẻ
Bước 4: Kết thúc