Trang 1

1/ Đáp án đúng: 345678910

Lời gải chi tiết:

var i:integer;g:text;
begin
assign(g,'bt.out');rewrite(g);
for i:=3 to 10 do begin
write(g,i);
end;
close(g);
end.

2/ Được thực hiện khi Nếu trong công việc có nhiều hơn 1 câu lệnh thì phải đặt chúng trong cặp từ khóa BEGIN và END (lệnh hợp thành).

3/ Vòng lặp While...do kết thúc khi Điều kiện sai thì kết thúc

Trang 2

1/ i phải khai báo kiểu dữ liệu integer

2/ 15

Chương trình 2 câu trên

var i,s:integer;g:text;
begin
assign(g,'bt.out');rewrite(g);
S:=0;
for i:=1 to 5 do S:=s+i;
write(g,s);
close(g);
end.

3/ 15

var i,s:integer;g:text;
begin
assign(g,'bt.out');rewrite(g);
S:=0;
for i:=1 to 5 do if i mod 2=0 then s:=s+i else s:=s+i;
write(g,s);
close(g);
end.

10

Điều kiện còn đúng

Khi điều kiện được cho trước thoả mãn

Integer

5

5

16

Nhỏ hơn giá trị cuối

Được