Question

viết chương trình pascal bang cuu chuong bảng nhân 7 

Answer 1

program bang_nhan;

uses Crt;

var i,n:Integer

 begin

 clrscr;

n:=7;

for i:=1 to 10 do

 WriteLn(n,'x',i:2,'=',n*i:3);

Readln

 end.

Answer 2

Program cuu_chuong_7;

Var;

      i : interger;

      k : interger;

Begin;

       for i := 1 to 10 do:

             k := 7;

             writeln (k, “x”, i, “=”, k * i);

End;