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
939
- Điểm
12945
- Cảm ơn
621
- 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
21146
- 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?

Cảm ơn 16
Báo vi phạm
Bạn muốn hỏi điều gì?
Tham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Xem thêm
Bảng tin
Bạn muốn hỏi điều gì?
Lý 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 độ