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, ‘ ‘);
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, ‘ ‘);
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
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.