2 câu trả lời
program bang_cuu_chuong_lop_8 ;
uses crt;
var i : byte;
begin
clrscr;
writeln ('bang cuu chuong lop 8 ');
for i:=1 to 10 do ;
writeln('8 * ',i,'= ',8*i);
readln;
end.
Uses crt;
Var
a:array[1..9,1..9] of Integer ;
i,j:byte ;
Begin
Clrscr ;
For i := 1 to 9 do
For j := 1 to 9 do
A[i,j] := i*j ;
For i := 1 to 9 do
Begin
For j := 1 to 9 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
End.
Câu hỏi trong lớp
Xem thêm