Viết chương trình hiện ra bảng cửu chương lớp 8..

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