*Bài tập lập trình pascal:
Cho số tự nhiên n( n<1000). Tìm chữ số cuối và chữ số đầu của n.
Những câu hỏi liên quan
Viết chương trình bằng ngôn ngữ lập trình Pascal tính tổng các số từ 1 đến n, biết n là số tự nhiên được nhập từ bàn phím
Var i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln;
End.
Đúng 3
Bình luận (0)
Em hãy viết ct máy tính bằng ngôn ngữ lập trình pascal để tính giá trị của 2^n (với n là số tự nhiên nhập từ bàn phím)
Biết rằng: 2^n=2*2*2...2
Giúp mình với
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap n '); readln(n);
t:=1;
for i:=1 to n do t:=t*2;
write('2^,n,' = ',t);
readln
end.
Đúng 3
Bình luận (0)
program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.
Đúng 1
Bình luận (0)
Trình bày cho em nx nhá!
Bài 1:
a) Viết tập hợp các số tự nhiên n vừa chia hết 2, vừa chia hết cho 5 và 195 ≤ n ≤ 2018.
b) Viết tập hợp các số tự nhiên n chia hết cho 17 và có 3 chữ số.
a) Ta có: n vừa chia hết cho 2, vừa chia hết cho 5
=> n chia hết cho 10
\(A=\left\{200;210;220;230;...2100;2010\right\}\)
b) \(A=\left\{102;119;136;...;969;986\right\}\)
Đúng 1
Bình luận (0)
a) N={200,210,220,230,240,250,260,270,280,290,300,310,320,330,......}
Tóm lại các số đấy có tận cùng là 0 nhé.
b)N={102,119,136,153,170,187,204,221,238,.......}
Bn có thể lấy 17 nhân lần lượt từ 1,bao h đến số có 4 chữ số thì thoi
Đúng 1
Bình luận (0)
Viết chương trình bằng ngôn ngữ tự nhiên và bằng ngôn ngữ lập trình Pascal ứng cho các bài toán sau. Tính và đưa ra màn hình tổng z=|x|+|y| với điểm (x>y) thuộc đường tròn bán kính r(r>0) tâm (a;b)
b, y=1+2+3+....+100
c, y=1+2+3+...+n cho đến khi y>3200
mk cần trong vòng 1 tiếng nữa . mong mọi người giúp mk , Cảm ơn nhiều ạ
b)
uses crt;
var i,y:integer;
begin
clrscr;
y:=0;
for i:=1 to 100 do
y:=y+i;
writeln('y=',y);
readln;
end.
c)
uses crt;
var y,i:integer;
begin
clrscr;
y:=0;
i:=1;
while y<=3200 do
begin
y:=y+i;
inc(i);
end;
writeln('y=',y);
readln;
end.
Đúng 1
Bình luận (0)
9 tháng 8 2020 lúc 20:02
Để chọn những học sinh có tố chất lập trình tham gia đội tuyển HSG môn Tin của trường, cô Minh đưa ra một bài tập như sau: Có n số tự nhiên khác nhau, các em hãy viết chương trình chọn k số bất kỳ (0 k le n) có trong dãy sao cho tổng bằng m.Chú ý: các cách chọn là hoán vị của nhau chỉ tính là 1 cách.Ví dụ: m 10, với cách chọn 3 số 4, 5, 1 chúng ta có các cách chọn như sau:4 + 5 + 1 4 + 1 + 5 5 + 4 + 1 5 + 1 + 4 1 + 4 + 5 1 + 5 + 4 10.Tất cả các cách trên được tính là một cách.Dữ liệu vào...
Đọc tiếp
Để chọn những học sinh có tố chất lập trình tham gia đội tuyển HSG môn Tin của trường, cô Minh đưa ra một bài tập như sau: "Có n số tự nhiên khác nhau, các em hãy viết chương trình chọn k số bất kỳ (0 < k \(\le\) n) có trong dãy sao cho tổng bằng m".
Chú ý: các cách chọn là hoán vị của nhau chỉ tính là 1 cách.
Ví dụ: m = 10, với cách chọn 3 số 4, 5, 1 chúng ta có các cách chọn như sau:
4 + 5 + 1 = 4 + 1 + 5 = 5 + 4 + 1 = 5 + 1 + 4 = 1 + 4 + 5 = 1 + 5 + 4 = 10.
Tất cả các cách trên được tính là một cách.
Dữ liệu vào từ file DOEM.inp bao gồm:
- Dòng đầu tiên ghi hai số n, m cách nhau một khoảng trắng \(\left(0< n\le100,0< m\le2.10^9\right)\).
- Dòng thứ hai ghi n số, mỗi số cách nhau một khoảng trắng.
Dữ liệu ra file DOEM.out: ghi số lượng cách chọn k số thoả điều kiện.
Ví dụ:
| DOEM.inp | DOEM.out |
5 10 | 2 |
8 23 | 0 |
Giải thích:
- Với 5 số: 4, 7, 5, 1, 3 có 2 cách chọn là: 4 + 5 + 1 = 7 + 3 = 10.
- Với 8 số: 4, 2, 6, 8, 10, 40, 20, 30 không có cách chọn thoả điều kiện.
dùng ngôn ngữ lập trình Pascal,viết chường trình tính tổng 50 số tự nhiên đầu tiên.( dùng While..do,hoặc For..do)
while..do
Program HOC24;
var i: byte;
t: integer;
begin
i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.
Đúng 1
Bình luận (0)
For..do
Program HOC24;
var i: byte;
t: integer;
begin
t:=0;
for i:=1 to 50 do t:=t+i;
write('Ket qua la: ',t);
readln
end.
Đúng 0
Bình luận (0)
program TinhTong50SoTuNhienDauTien;
var i, t: integer;
begin
t := 0;
for i := 1 to 50 do
begin
t:= t+ i;
end;
writeln('Tong cua 50 so tu nhien dau tien la: ', t);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Viết chương trình trong Pascal sử dụng câu lệnh lặp While...do... hoặc Repeat...until... để tính tổng n số tự nhiên sao cho \(0< n\le100\). Nếu n không nằm trong khoảng này, chương trình sẽ cho nhập lại số n.
mình thách bạn cũng với đề ấy trong chương trình scratch
Đúng 0
Bình luận (0)
20 tháng 2 2022 lúc 15:45
Viết chương trình Pascal để nhập vào một số tự nhiên n. In lên màn hình tổng các số chẵn từ 1 đến n. Mn giúp mình với!
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
writeln('cac so chan trong khoang tu 1 toi ',n,' la:');
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
Đúng 0
Bình luận (1)
program chan;
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
if i mod 2=0 then write('cac so chan tu 1 den n la:');
readln
end.
Đúng 0
Bình luận (1)
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
writeln('cac so chan trong khoang tu 1 toi ',n,' la:');
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
nha bạn
|~ Hok tốt ~|
Đúng 0
Bình luận (2)
23 tháng 3 2023 lúc 19:58
Viết chương trình Pascal tìm giá trị nhỏ nhất của một dãy số gồm `n` phần tử. Với `n` là một số tự nhiên được nhập từ bàn phím