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;
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 ;
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
1. 2 4 6 8 10
2. 10
3. Byte
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