Question

Viết chương trình tạo bảng cửu chương với r là stn được nhập từ bàn phím

Answer 1

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.

Answer 2

uses crt;
var r,i:integer;
Begin
clrscr;
write('nhap so R='); read(r);
writeln;
writeln('bang nhan,',r);
writeln;
for i:=1 to r do writeln(r,'x',i:2,'=',r*i:3);
readln
end.

Answer 3

Program Bang_nhan;
Uses crt;
Var
r,I,s:Integer;
Begin
Clrscr;
Write('Nhap r ');Readln(r);
For I:=1 to 10 do
Begin
s:=r*I;
Writeln(r ,' * ', I ,' = ',s);
End;
Readln;
End.