Viết chương trình in ra bảng cửu chương 9. HELPPPPPP

2 câu trả lời

Viết chương trình in ra bảng cửu chương 9:

Program bangCuuChuong9;

uses crt;

var i, n: integer;

begin

clrscr;

n:=9;

for i:=1 to 10 do

begin

writeln('9x',i,'=',n*i);

end;

readln;

end.

uses crt;
var i:longint;
begin
clrscr;
writeln('BANG CUU CHUONG 9');
for i := 1 to 10 do
writeln(9,' x ',i,' = ',9*i);
readln;
end.