Bài 1: viết câu lệnh để in ra màn hình dãy số sau: 1 2 3 ... 10 viết lệnh for i:=1 to 10 do writeln (i); Bài 2: viết câu lệnh để in ra màn hình dãy số sau: 1 2 3 ... 10 ( mỗi số cách 2 khoảng trắng) for i:=1 to 10 do write (i, ' ');
2 câu trả lời
Bài 1:
Program baitap1;
Uses crt;
Var i: integer;
Begin
clrscr;
For i:=1 to 10 do writeln(i);
readln
End.
Bài 2:
Program baitap2;
Uses crt;
Var i: integer;
Begin
clrscr;
For i:=1 to 10 do writeln(i,' ');
readln
End.
1/
Program BTH;
uses crt;
var i:byte;
Begin
clrscr;
For i:=1 to 10 do
Writeln(i);
readln;
end.
2/
Program BTH;
uses crt;
var i:byte;
Begin
clrscr;
For i:=1 to 10 do write (i, ' ');
readln;
end.
Nếu bạn muốn câu lệnh thì mình đã bôi đen rồi nha