Lập trình nhập vào bàn phím số nguyên N (N<=250) hãy đến các phần từ từ 1 đến N là bội của 3 và 5 đưa kết quả ra màn hìn
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.
VT
0
NH
0
ML
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.
TN
0
TN
0