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.