1/ Câu lệnh sau sẽ viết ra các số nào trong các số sau for i:=1 to 10 do begin if i mod 2=0 then write(i, ' ') end;

                                                              Giải

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

Kết quả: 246810.

2/  Câu lệnh sau sẽ viết ra các số nào i:= 1 ; while i < 10 do begin if 10 mod i = 0 then write(i,' '); i:= i + 1 ; end ;

Giải

var i:integer;g:text;
begin
assign(g,'bt.out');rewrite(g);
i:=1;
while i<10 do begin
                   if 10 mod i=0 then write(g,i,'');
                   i:=i+1;
              end;
close(g);
end.

Kết quả: 125.

3/  Cho câu lệnh sau: s:=0; For i:=1 to 5 do s:=s+i; cho biết biến i phải khai báo kiểu dữ liệu nào trong các kiểu sau? help mik 3 cái này

                                                                 Giải

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.

Kết quả: _Biến i phải khải báo kiểu dữ liệu integer

               _15

1. 2 4 6 8 10

2. 10

3. Byte