Lập Trình Pascal Mọi Người Giúp Mk Với

logologoTì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
    • icon_userĐăng nhập
    • |
    • Đăng ký
    icon_menu
avataricon

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ý
  • add
  • Đặt câu hỏiiconadd
  • logo

    loading

    +

    Lưu vào

    • +

      Danh mục mới

    Lưuavataravatar
    • ngocpham52215logoRank
    • 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
    Lập trình pascal Mọi người giúp mk với 🥺imagerotate
    • Hỏi chi tiết
    • reportBá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ời

    TRẢ LỜI

    avataravatar
    • nguyenminhquan15logoRank
    • 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?

    avatar

    starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4starstarstarstarstar1 voteGửiHủy
    • hertCảm ơn 16
    • reportBáo vi phạm
    Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK, SBT LỚP 8 - TẠI ĐÂY

    Bạn muốn hỏi điều gì?

    questionĐặt câu hỏi

    Tham 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ì?

    iconĐặt câu hỏi

    Lý do báo cáo vi phạm?

    Gửi yêu cầu Hủy

    logo

    Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát

    • social
    • social
    • social

    Tải ứng dụng

    google playapp store
    • Hướng dẫn sử dụng
    • Điều khoản sử dụng
    • Nội quy hoidap247
    • Góp ý
    • Tin tức
    • mailInbox: m.me/hoidap247online
    • placeTrụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
    Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.

    Từ khóa » Thử Vận May Avatar