Viết chương trình in bảng nhân 9 và 7
Những câu hỏi liên quan
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Câu 1:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('So luong phan tu duong la: ',dem);
readln;
end.
Câu 3:
uses crt;
var i,j:integer;
begin
clrscr;
for i:=1 to 9 do
begin
writeln('Bang nhan ',i,' la: ');
for j:=1 to 10 do
writeln(i,'*',j,'=',i*j);
delay(200);
end;
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình pascal bang cuu chuong bảng nhân 7
program bang_nhan;
uses Crt;
var i,n:Integer
begin
clrscr;
n:=7;
for i:=1 to 10 do
WriteLn(n,'x',i:2,'=',n*i:3);
Readln
end.
Đúng 1
Bình luận (0)
Program cuu_chuong_7;
Var;
i : interger;
k : interger;
Begin;
for i := 1 to 10 do:
k := 7;
writeln (k, “x”, i, “=”, k * i);
End;
Đúng 0
Bình luận (0)
Viết chương trình in ra màn hình bảng cửu chương từ 2 đến 9 bằng lệnh while...do...
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.
Đúng 2
Bình luận (0)
26 tháng 2 2021 lúc 10:05
Hãy mô tả thuật toán của bài toán ''Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, số được nhập từ bàn phím''.
Bước 1: Nhập n là số cần in ra bảng nhân của số đó
Bước 2: i←1;
Bước 3: Nếu i>n thì kết thúc thuật toán
Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)
Bước 5: i←i+1, quay lại bước 3
Đúng 1
Bình luận (0)
Bước 1: Nhập n
Bước 2: i←1;
Bước 3: Nếu i>n thì kết thúc thuật toán
Bước 4: In ra màn hình kết quả của câu lệnh writeln(i,'x',n,'=',i*n)
Bước 5: i←i+1, quay lại bước 3
Đúng 0
Bình luận (0)
Viết chương trình in bảng cửu chương từ 2 đến 9 ra màn hình,bố trí 4 bảng đầu ở nửa trên ,4 bảng sau ở nửa dưới.giúp e đc k ạ e cần gấp😿
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.
Đúng 0
Bình luận (0)
viết chương trình in ra màn hình bảng cửu chương của số n trong khoảng 1 dến 9 ,số được nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả
uses crt;
var i,n:integer;
begin
write('nhap n=');readln(n);
writeln('bang nhan',n);
for i:=1 to 10 do writeln(n,' x ',i:2,' = ',n*i:3);
readln
end.
Đúng 2
Bình luận (0)
viết chương trình in ra màn hình bảng cửu chương của số N trong khoản từ 1 đến 9 , N được nhập từ bàn phím
uses crt;
var n, i : integer;
begin clrscr;
readln(n);
for i:=1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln;
end.
Đúng 0
Bình luận (0)
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.
Đúng 1
Bình luận (0)
viết chương trình lần lượt in các bảng cửu chương từ bảng 2 đến bảng 9
giúp tớ vs ọ:D
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!!
Đúng 1
Bình luận (2)
Hãy mô tả thuật toán của bài toán ''Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, số được nhập từ bàn phím''.
uses crt;
var n,i,x:integer;
begin
writeln('Nhap so: ');readln(n);
For i:=1 to 9 do writeln(n,'x',i,'=',n*i);
readln
end.