Viết chương trình in ra màn hình
a, ******************************
* họ và tên *
* lớp *
* trường *
******************************
b, bảng cửu chương 7
c, 50 chữ ” HOC TRUC TUYEN ”
program oken;
uses crt;
var i,:intger;
begin
clrscr;
write(‘***********************’);
write(‘* pham phuc thinh *’);
write(‘* 8/1 *’);
write(‘* Dong Da *’);
write(‘************************’);
write(‘nhan Enter de chuyen sang bai 2’);
readln;
clrscr;
writeln(‘BANG CUU CHUONG 7’);
for i:=1 to 10 do
writeln(‘7 * ‘,i,’=’,7*i);
writeln(‘nhan Enter de chuyen sang bai 3’);
readln;
clrscr;
writeln(‘in 50 chu HOC TRUC TUYEN’);
delay(120);
for i:=1 to 50 do
writeln(‘HOC TRUC TRUYEN’);
writeln(‘nhan Enter de ket thuc’);
readln;
end.
for i:=
a) (hình 1)
b) (hình 2) chạy chương trình với dữ liệu nhập vào là 7
c) (hình 3)