Giải gấp hộ mình với Mô tả thuật toán và viết chương trình in ra bảng chia 9

2 câu trả lời

var: i,j:byte;

BEGIN For i:= 2 to 9 do

begin

For j:= 1 to 10 do

begin write(i,'x',j,'=',i*j);

writeln;

end;

writeln;

end;

readln

END.

Thuật toán đơn giản:

i <-1 to 10

Writeln(9*i,' : 9 = ',i);

Chương trình:

Program BTT;
Uses crt;
Var i: longint;
Begin
        Clrscr;
        For i:=1 to 10 do
        Writeln(9*i,' : 9 = ',i);
        Readln
End.