Viết chương trình in ra bảng cửu chương của số N trong khoảng từ 1 đến 9, số được nhập từ bàn phím
0 bình luận về “Viết chương trình in ra bảng cửu chương của số N trong khoảng từ 1 đến 9, số được nhập từ bàn phím”
Program hoidap; Uses crt; Var N,i : integer; Begin Clrscr; Write(‘Nhap so N=’); readln(N); Writeln; Writeln(‘Bang nhan’,N); Writeln; For i:=1 to 10 do writeln(N,’ x ‘,i:2,’=’,N*i:3); Readln End.
program oken; uses crt; var i,n:integer; begin clrscr; write(‘nhap 1 so bat ky: ‘); readln(n); writeln(‘BANG CUU CHUONG ‘,n); for i:=1 to 9 do writeln(n,’ * ‘,i,’ = ‘,n*i); readln; end.
Program hoidap;
Uses crt;
Var N,i : integer;
Begin
Clrscr;
Write(‘Nhap so N=’); readln(N);
Writeln;
Writeln(‘Bang nhan’,N);
Writeln;
For i:=1 to 10 do writeln(N,’ x ‘,i:2,’=’,N*i:3);
Readln
End.
program oken;
uses crt;
var i,n:integer;
begin
clrscr;
write(‘nhap 1 so bat ky: ‘); readln(n);
writeln(‘BANG CUU CHUONG ‘,n);
for i:=1 to 9 do
writeln(n,’ * ‘,i,’ = ‘,n*i);
readln;
end.