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
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.
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.
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 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.
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.
Viết chương trình in ra màn hình bảng cửu chương 2 số được nhập từ bàn phím
#include <bits/stdc++.h>
using namespace std;
long long i;
int main()
{
for (i=1; i<=10; i++)
cout<<"2*"<<i<<"="<<2*i<<endl;
return 0;
}
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.
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.
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.
Đây là đề có liên quan tới pascal và toán:
Viết chương trình bảng cửu chương in ra bảng cửu chương giữa màn hình.
Mong các pn giúp đỡ
viết chương trình in ra màn hình bảng cửu chương 14
VIẾT CHƯƠNG TRÌNH (SỬ DỤNG LỆNH While...do)
1/Viết chương trình tính bảng cửu chương.Nhập vào số n và in ra bảng cửu chương của n
2/Viết chương trình đếm số chẵn và số lẻ từ 1 đến n
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à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.