hãy viết các bảng cửu chương của phép nhân từ 2 đến 9
giúp mik
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.
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!!
4x1=4 4:1=4
4x 2=8 8:4=2
4x3=12 12:4=3
4x4=16
4x5=20
4x6=24
4x7= 28
4x 8= 32
4x9= 36
4x10=40
Câu 1:
program chieu_cao;
uses crt;
var Nam, Linh: real;
begin
clrscr;
write ('Nhap chieu cao cua Nam:'); readln (Nam);
write ('Nhap chieu cao cua Linh:'); readln (Trang);
if Nam > Linh then writeln ('Ban Nam cao hon');
if Nam < Linh then writeln ('Ban Linh cao hon') else writeln ('Hai ban cao bang nhau');
readln
end.
Câu 2:
program Tich;
var N,i: interger;
P: longint;
begin
write ('N='); readln (N);
P:=1;
for i:=1 to N do P:=P*i;
writeln (N,' ! = ',P);
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.
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.
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.
uses crt;
var n, i : integer;
begin clrscr;
readln(n);
for i:=1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln;
end.
program MultiplicationTable;
uses crt;
var
N, i, j: integer;
begin
clrscr;
write('Enter N: ');
readln(N);
for i := 1 to 9 do
begin
writeln(N, ' x ', i, ' = ', N*i);
end;
readln;
end.
uses crt;
var i,j:integer;
begin
clrscr;
for i:=2 to 9 do
begin
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
end;
readln;
end.
2 x 1 = 2
2x 2 = 4
2 x 3 = 6
2 x 4 = 8
2 x 5 = 10
2 x 6 = 12
2 x 7 = 14
2 x 8 = 16
2 x 9 = 18
2 x 10 = 20
3 x 1 = 3
3x 2 = 6
3 x 3 = 9
3 x 4 = 12
3 x 5 = 15
3 x 6 = 18
3 x 7 = 21
3 x 8 = 24
3 x 9 = 27
3x 10 = 30
4 x 1 = 4
4 x 2 = 8
4 x 3 = 12
4 x 4 = 16
4 x 5 = 20
4 x 6 = 24
4 x 7 = 28
4 x 8 = 32
4 x 9 = 36
4 x 10 = 40
5 x 1 = 5
5 x 2 = 10
5 x 3 = 15
5 x 4 = 20
5 x 5 = 25
5 x 6 = 30
5 x 7 = 35
5 x 8 = 40
5 x 9 =, 45
5 x 10 = 50
6 x 1 = 6
6 x 2 = 12
6 x 3 = 18
6 x 4 = 24
6 x 5 = 30
6 x 6 = 36
6 x 7 = 42
6 x 8 = 48
6 x 9 = 54
6 x 10 = 60
7 x 1 = 7
7 x 2 = 14
7 x 3 = 21
7 x 4 = 28
7 x 5 = 35
7 x 6 = 42
7 x 7 = 49
7 x 8 = 56
7 x 9 = 63
7 x 10 = 70
8 x 1 = 8
8x 2 = 16
8 x 3 = 24
8 x 4 = 32
8x 5 = 40
8x 6 = 48
8 x 7 = 56
8x 8 = 64
8 x 9 = 72
9 x 1 = 9
9 x 2 = 18
9 x 3 = 27
9 x 4 = 36
9x 5 = 45
9 x 6 = 54
9x 7 = 63
9 x 8 = 72
9 x 9 = 81