Cho chương trình sau bằng FreePascal
Uses crt; (1)
Var i,j:integer (2)
Begin
Clrscr; (3)
For i:=a to z do write(cac chu cai tu a đen z la: ,i:3); (4)
For j:=A to Z do write(‘cac chu cai tu A đen Z la:’i:); (5)
Readln; (6)
End (7)
a,Chương trình trên bị sai về vị trí các dòng 2,4,5,7,hãy bổ sung hoặc sửa lại vào các dòng này để được chương trình đúng
b,Hãy cho biết công dụng của phương trình trên
(2) thiếu ; ở cuối
(4),thiếu nháy
(5) thiếu , sau : thứ 2
(7)thiếu: chấm
công dụng viết chữ từ a đến z
a.
(2) Var i,j:integer ;
(4) For i:=a to z do write( ‘ cac chu cai tu a đen z la: ‘ ,i:3);
(5) For j:=A to Z do write(‘cac chu cai tu A đen Z la: ,‘i:);
(7) End .
b.
In các chữ cái từ a đến z, từ A đến Z.