Lập Trình Pascal Mọi Người Giúp Mk Với
Có thể bạn quan tâm
Tìm kiếm với hình ảnh
Vui lòng chỉ chọn một câu hỏi
Tìm đáp án- Đăng nhập
- |
- Đăng ký
Hoidap247.com Nhanh chóng, chính xác
Hãy đăng nhập hoặc tạo tài khoản miễn phí!
Đăng nhậpĐăng kýLưu vào
+
Danh mục mới
- ngocpham52215
- Học để làm gì ?
- Trả lời
831
- Điểm
10770
- Cảm ơn
582
- Tin Học
- Lớp 8
- 20 điểm
- ngocpham52215 - 17:37:58 08/03/2021
- Hỏi chi tiết
- Báo vi phạm
Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!
TRẢ LỜI
ngocpham52215 rất mong câu trả lời từ bạn. Viết trả lờiTRẢ LỜI
- nguyenminhquan15
- Chưa có nhóm
- Trả lời
2863
- Điểm
41637
- Cảm ơn
21141
- nguyenminhquan15
- 08/03/2021
program trochoi;
uses crt;
var A:array[1..100] of integer;
B:array[1..100] boolean;
n,i,t,dd:byte;
begin
clrscr;
ramdomize;
n:=random(49)+1;
writeln('So luot choi la: ',n);
t:=0;
for i:=1 to n do
begin
A[i]:=randomize(1000);
write('Nhap du doan: ') readln(dd);
if ((A[i] mod 2=0) and (dd=0)) or ((A[i] mod 2=1) and (dd=1)) then
begin
t:=t+1;
B[i]:=true;
end
else B[i]:=false;
end;
writeln('So lan doan trung la: ',t);
writeln('Ket qua theo thu tu la: ');
for i:=1 to n do
write(B[i],' ');
writeln;
if t/n>=0.8 then write('Rat may man')
else if t/n>=0.65 then write('May man')
else if t/n>=0.5 then write('Binh thuong')
else write('Khong may man');
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4starstarstarstarstar1 voteGửiHủy
- Cảm ơn 16
- Báo vi phạm
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho 2K11 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
15. Hay viết chương trình trò chơi "Thử vận may" theo mô tả như sau: - Đầu tiên máy tính sinh một số ngẫu nhiên n để biểu diễn số lượt chơi (xem cách sinh số ngẫu nhiên trong bài tập 7.17). Ở mỗi lượt chơi, máy tính sẽ sinh một số ngẫu nhiên. Trước khi thông báo số này, người chơi sẽ đ ...Xem thêm
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏiLý do báo cáo vi phạm?
Gửi yêu cầu Hủy
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
- Hướng dẫn sử dụng
- Điều khoản sử dụng
- Nội quy hoidap247
- Góp ý
- Inbox: m.me/hoidap247online
- Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Từ khóa » Thử Vận May Avatar
-
Avatar Musik - Thử Vận May Thứ 6 Ngày 13 Nào | Facebook
-
Avatar Musik - Thử Vận May Thứ 6 Ngày 13 Nào | Facebook
-
Thử Vận May-Avatar Musik - YouTube
-
Avatar:ra Thử Vận May Câu Cá Mập.Và Cái Kết Quá Bất Ngờ Xem Rồi ...
-
Quay Số Vận May Trong Avatar - Taiavatar565/Tai-avatar---Avatar-full ...
-
Avatar Hổ - Phiên Bản Di động V5.6.4 Tải Xuống
-
[Minigame] THỬ TÀI ĐẶT TÊN Ở NHÀ CHO BÉ TRAI - MarryBaby
-
Thử Vận May 9k Ff এর জনপ্রিয় ভিডিও আবিষ্কার করুন | TikTok
-
Vắt Vàng Trong "Avatar": Tất Cả Các Cách - DELACHIEVE.COM
-
Avatar Thỏ Bảy Màu_Top 25 Game đánh Bài đổi Thưởng - SODO66
-
Vé Và Xổ Số | Bladestorm Help Center
-
Game Avatar 230 - Đường đua Tốc độ