Viết chương trình bảng cửu chương (bảng nhân )
* ghi chú : câu lệnh for ... do lập lại 30 lần
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
TG
18 tháng 1 2021
Program mun;
Uses crt;
Var i:integer;
Begin
For i:=1 to 10 do write ('2 × ', i,' = ', 2*i);
Readln;
End.
P/s: Ko chắc ạ!
18 tháng 1 2021
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 10 do
writeln('2*',i,'=',2*i);
readln;
end.
TV
1
24 tháng 1 2021
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Bang cuu chuong ',n,' la: ');
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
readln;
end.
LD
1
24 tháng 3 2021
program bang_cuu_chuong;
uses crt;
var n,tich,i:integer;
begin
clrscr;
n:=2;i:=1;
while n<=9 do
begin
while i<=10 do
begin
tich:=n*i;
writeln(n,' x ',i,' = ',tich);
i:=i+1;
end;
n:=n+1;i:=1;
end;
readln;
end.
QT
Quoc Tran Anh Le
Giáo viên
26 tháng 11 2023
Để chú cá di chuyển nhiều lần, theo em có thể bổ sung thêm nhiều lệnh di chuyển hoặc đặt lệnh di chuyển vào vòng lặp. Chương trình tham khảo như sau:
TU
1
10 tháng 3 2023
Uses crt;
Var a,b :byte;
Begin
Clrscr;
For a:=2 to 9 do
Begin
For b:=1 to 10 do writeln ( a,’x’,b,’=’,a*b);
Delay(1000); { tam dung sau moi cuu chuong duoc in ra }
Writeln; { ngan cach cac bang cuu chuong }
End;
Readln
End.
* bạn thử chạy chương trình ra nhé , chúc học tốt!!
ML
7 tháng 5 2020
Bài 1:
Program hotrotinhoc_hoc24;
var i,n: integer;
begin
write('Nhap n='); readln(n);
i:=0;
while i<10 do
begin
i:=i+1;
writeln(n,'*',i,'=',n*i);
end;
readln
end.
ML
7 tháng 5 2020
Bài 2:
Program hotrotinhoc_hoc24;
var i,n,d,d1: integer;
begin
write('Nhap n='); readln(n);
i:=0;
while i<n do
begin
i:=i+1;
if i mod 2=1 then d:=d+1;
if i mod 2=0 then d1:=d1+1;
end;
writeln('Co ',d1,' so chan tu 1 den ',n);
write('Co ',d,' so le tu 1 den ',n);
readln
end.
bảng cửu chương mấy vậy bạn?