1 Trong các hoạt động dưới đây, hoạt động nào là hoạt động lặp với số lần chưa biết trước? (1 Điểm) Tính tổng các số tự nhiên từ 1 đến 20 A Nhập vào 1 số cho đến khi số nhập vào là số chẵn thì dừng B Nhập các số nguyên từ bàn phím cho đến khi đủ 50 số. C Mỗi ngày học bài 2 lần. D 2 .Đoạn lệnh sau đây i:=1; While i<10 do write('A'); sẽ cho kết quả gì? (1 Điểm) In 1 chữ A ra màn hình A In 10 chữ A ra màn hình B In vô số chữ A ra màn hình C In 5 chữ A ra màn hình D 3 Sau khi thực hiện đoạn chương trình j:= 0; for i:= 1 to 3 do j:=j+2; thì giá trị in ra màn hình là? (1 Điểm) 4 A 6 B 8 C 10 D 4 Hãy hoàn thiện chương trình tính tổng n số tự nhiên đầu tiên cho đến khi S<=500. Cho biết N S:=0 N:=0 While S<= do N:= N+1 S:= S+N Writeln(‘So N de tong >1000 la’,N); Writeln(‘Gia tri cua tong S =',S); Bài này tự luận ( bài 4)

2 câu trả lời

1.B

2.C

3.B

4

Sau khi chỉnh sửa 

Program BTH;
uses crt;
var n,s:longint;
Begin
        clrscr;
        s:=0;
        n:=0;
        While s<=500 do
        Begin
                n:=n+1;
                s:=s+n;
        end;
        Writeln('So N de tong >500 la ',n);
        Writeln('Gia tri cua tong S= ',s);
        readln;
end.

1B

2C

3B

4

program oken;

uses crt;

var s,n:longint;

begin

clrscr;

s:=0; n:=0;

while s<=500 do

   begin

       n:=n+1;

       s:=s+n;

    end;

writeln('So N de tong >1000 la: '.n);

writeln('Gia Tri cua tong S =',s);

readln;

end.