Bài tập Tin học Khối 8

Nội dung text: Bài tập Tin học Khối 8

1. Câu 1: Cho chương trình nhập vào các số đến khi tổng lớn hơn 1000 thì ngưng nhập và in ra màn hình kết quả của tổng đó. Hãy sửa lại các lỗi có trong chương trình để được chương trình đúng: Program KT 1tiet; Uses crt; Var T,i: integer; Begin While T<=1000 then Begin Write(‘Moi ban nhap vao mot so nguyen: ‘); Readln(a); T=T+a; End; Readln(‘Tong da nhap la: T); Readln; End. Câu 2: Hãy viết chương trình in ra màn hình các số từ 1 đến 50 theo chiều dọc. Câu 1: Cho chương trình nhập vào các số đến khi tổng lớn hơn 1000 thì ngưng nhập và in ra màn hình kết quả của tổng đó. Hãy sửa lại các lỗi có trong chương trình để được chương trình đúng: Program KT 1tiet; Uses crt; Var T,i: integer; Begin While T<=1000 then Begin Write(‘Moi ban nhap vao mot so nguyen: ‘); Readln(a); T=T+a; End; Readln(‘Tong da nhap la: T); Readln; End. Câu 2: Hãy viết chương trình in ra màn hình các số từ 1 đến 50 theo chiều dọc.