Question

Viết chương trình nhập vào một số nguyên từ bàn phím in ra màn hình kết quả bảng cửu chương của số nguyên...

HELP. ME.

Answer 1

USES crt;

VAR i,n:integer;

BEGIN

clrscr;

write('Nhap n:');readln(n);

i:=1;

while i<=10 do

begin

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

inc(i);

end;

readln;

END.

Answer 2

program bang_nhan;
uses crt;
var i,N : integer;
begin clrscr;
write('Nhap so N='); readln(N);
writeln('Bang nhan' , N , 'la :');
for i:= 1 to 10 do writeln(N , 'x' , i ,'=' , N * i );
readln;
end.