viết chương trình in ra bảng nhân từ 2 đến 9.
Những câu hỏi liên quan
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)
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)
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ả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)
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.
Viết chương trình :1.In ra màn hình bảng cửu chương của số N trong khoảng 1 đến 92.In ra màn hình các số từ 0 đến 99 theo dạng bảng như sau :0 1 2 3 ....... 910 11 12 13 ....... 1920 21 22 23 ... 29...90 91 92 93 ... 993/Sử dụng lệnh lặp While hoặc For để tính trung bình của N số thực x1,x2,x3,.....xn Các số N và x1,x2,x3,.....xn đc nhập từ bàn phím
Đọc tiếp
Viết chương trình :
1.In ra màn hình bảng cửu chương của số N trong khoảng 1 đến 9
2.In ra màn hình các số từ 0 đến 99 theo dạng bảng như sau :
0 1 2 3 ....... 9
10 11 12 13 ....... 19
20 21 22 23 ... 29
.
.
.
90 91 92 93 ... 99
3/Sử dụng lệnh lặp While hoặc For để tính trung bình của N số thực x1,x2,x3,.....xn Các số N và x1,x2,x3,.....xn đc nhập từ bàn phím
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)
Câu 1 : Cho chiều cao hai bạn Nam và Linh . Em hãy viết chương trình in ra chiều cao của bạn có số đo cao hơn
Câu 2 : Nhập N . Viết chương trình tính tích các chữ số tự nhiên từ 1 đến N
Câu 3 : Nhập N . In ra bảng cửu chương N
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.
Đúng 2
Bình luận (0)
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.
Đúng 2
Bình luận (0)
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
readln(n);
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
readln;
end.
Đúng 0
Bình luận (0)