viết CT bảng nhân 6 bằng pascal

2 câu trả lời

program kaito;

uses crt;

var n: integer;

begin

   clrscr;

   for i:=1 to 10 do writeln(' 6 × ',i,' = ',6*i);

   readln;

end.

CHÚC BẠN HỌC TỐT!!!

Chương trình 

Program Hotboy; 

uses crt;

var i: byte; 

begin

    clrscr;

    Writeln('Bang cuu chuong sau') ;

    For i := 1 to 10 do writeln('6× ', i,' = ', 6*i);

    Readln

End.