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

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.

DeThi.edu.vn