K
Khách

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.

Bạn Tuấn viết chương trình bằng ngôn ngữ Pascal để tính trung bình cộng 2 số nguyên a và b (a,b được nhập vào từ bàn phím) như sau:               Program Tinh_trungbinhcong;            Uses CRT;            Var a,b: Byte; TBC: Realn            Begin                      Clrscr;                       Write('Nhap gia tri a = ');Readln(a);                      Write('Nhap gia tri b = ');Radln(b);                      TBC := (a + b)/2;                    ...
Đọc tiếp

Bạn Tuấn viết chương trình bằng ngôn ngữ Pascal để tính trung bình cộng 2 số nguyên a và b (a,b được nhập vào từ bàn phím) như sau:               Program Tinh_trungbinhcong;

           Uses CRT;

           Var a,b: Byte; TBC: Realn

           Begin

                     Clrscr; 

                     Write('Nhap gia tri a = ');Readln(a);

                     Write('Nhap gia tri b = ');Radln(b);

                     TBC := (a + b)/2;

                     Writeln('Trung binh cong cua ',a, 'va',b, ' = ', TBC:4:2);                           Readln;

           End.

Bạn Tuấn chạy chương trình với bộ dữ liệu (a,b) tương ứng là (325,350) nhưng chương trình báo lỗi. Em hãy giải thích vì sao và nêu hướng sửa chương trình để bạn Tuấn chạy được bộ dữ liệu trên. Giúp mink vs ạ mình đang cần gấp

1
6 tháng 11 2022

Program Tinh_trungbinhcong;

           Uses CRT;

           Var a,b: Byte; TBC: Realn -> SỬA:  Var a,b: Byte; TBC: Real;

           Begin

                     Clrscr; 

                     Write('Nhap gia tri a = ');Readln(a);

                     Write('Nhap gia tri b = ');Radln(b);

                     TBC := (a + b)/2;

                     Writeln('Trung binh cong cua ',a, 'va',b, ' = ', TBC:4:2);                           Readln;

           End.