Bảng cửu chương 1
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.
4x1=4
4x2=8
4x3=12
4x4=16
4x5=20
4x6=24
4x7=28
4x8=38
4x9=36
4x10=40
BCC:5
5x1=5
5x2=10
5x3=15
5x4=20
5x5=25
5x6=30
5x7=35
5x8=40
5x9=45
5x10=50
k mik nha
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!!
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.
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.
Program HOC24;
var n,i: integer;
begin
write('Nhap so nguyen: '); readln(n);
for i:=1 to 10 do
writeln(n,' x ',i,' = ',n*i);
readln
end.
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
readln;
end.
1 x 1 = 1
1 x 2 = 2
1 x 3 = 3
1 x 4 = 4
1 x 5 = 5
1 x 6 = 6
1 x 7 = 7
1 x 8 = 8
1 x 9 = 9
1 x 10 = 10
1 x 0 = 0
1 x 1 = 1
1 x 2 = 2
1 x 3 = 3
1 x 4 = 4
1 x 5 = 5
1 x 6 = 6
1 x 7 = 7
1 x 8 = 8
1 x 9 = 9
1 x 10 = 10