Question

in ra bảng cửu chương của 2 như sau :

2*1=2

...

2*10=20

Answer 1

var i,k:integer;

begin

k:=2;

for i:=1 to 10 do writeln(k,' x ',i,k*i);

readln;

end.

Answer 2

Var i ,a : byte;

Begin;

i:=2;

For a:=1 to 10 do Writeln ( i, 'x',a,'=',i*a);

Readln;

End.

Answer 3

cần mik lm bảng cửu chương của số bất kì nhập từ bàn phím k

Answer 4

var i,k:integer;

begin

k:=2;

for i:=1 to 10 do writeln(k,' x ',i,' = ',k*i);

readln;

end.

Answer 5

program bangcuuchuong;

uses crt;

var n,i:integer;

begin

write('bang cuu chuong:');readln(n);

for i:=1 to 10 do

writeln(n,'x',i,'=',n*i);

readln;

end.