Viết chương trình in ra bảng cửu chương n
– Sử dụng while …do ( sử dụng 1 cái đó thui )
– Mình đã hỏi khá nhiều nhưng bạn nào cx chép vừa while vừa for lộn xộn cả.
Viết chương trình in ra bảng cửu chương n
– Sử dụng while …do ( sử dụng 1 cái đó thui )
– Mình đã hỏi khá nhiều nhưng bạn nào cx chép vừa while vừa for lộn xộn cả.
program bcc;
uses crt;
var n,i: integer;
begin
clrscr;
write(‘Bang cuu chuong: ‘);
readln(n);
writeln(‘—————————–‘);
i:=0;
while i<=n do
begin
writeln(n,’ x ‘,i,’ = ‘,n*i);
i:=i+1;
end;
readln;
end.
program ct;
uses crt;
var i,n,T:integer;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
writeln(‘Bang nhan ‘,n,’ la: ‘);
T:=1; i:=1;
while i<=n do
begin
T:=T*i; i:=i+1;
writeln(n,’ x ‘,i:2,’ = ‘T:3);
end;
readln;
end.
Học tốt!