Câu 22 Sử dụng vòng lặp While … do…Để viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 500.
Program HOC24;
var i,n,t: integer;
begin
t:=0; i:=1;
while t<=500 do
begin
t:=t+i;
i:=i+1;
end;
write('Ket qua la: ',t);
readln
end.
a)
- Ví dụ 1:
For i:=1 to 10 do s:=s+i;
- Ví dụ 2:
For i:=1 to 5 do writeln('a');
b)
Dạng tiến: FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO <câu lệnh>;
Dạng lùi: FOR <biến đếm> := <giá trị cuối> DOWNTO <giá trị đầu> DO <câu lệnh>;
b) Cú pháp:
-Xuôi: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Giải thích:
-Biến đếm: có thể là kiểu số nguyên hoặc kiểu ký tự
-Giá trị đầu, giá trị cuối có thể là số nguyên hoặc ký tự
viết chương trình tìm số tự nhiên n sao cho tổng các số tự nhiên liên tiếp từ 1 đến n là tổng lớn nhất nhỏ hơn 500
program tim_n;
uses crt;
var tong,n,i:word;
begin
clrscr;
n:=1;tong:=0;
while tong<500 do
begin
for i:=1 to n do tong:=tong+i;
if tong<500 then begin tong:=0;n:=n+1;end
else n:=n-1;
end;
write('so n thoa man dieu kien la:',n);
readln;
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to 500 do
begin
t:=t+i;
if t>500 then
begin
writeln(i);
break;
end;
end;
readln;
end.
Câu 1: Tìm hai số biết tổng là 2009 và hiệu là 163.
Câu 2: Tìm số tự nhiên bé nhất có tổng các chữ số là 15.
Câu 3: Tìm số tự nhiên bé nhất có các chữ số khác nhau mà tổng các chữ số là 20.
Câu 4: Tìm STN lớn nhất có các chữ số khác nhau mà tổng các chữ số là 10.
Câu 5: Tìm STN lớn nhất có các chữ số khác nhau mà tổng các chữ số là 12.
Câu 6: Tìm 2 số tự nhiên liên tiếp có tổng là 215.
Câu 7: Tìm 2 số tự nhiên liên tiếp có tổng là 419.
Câu 8: Tìm 2 số tự nhiên liên tiếp có tổng là 2009.
Câu 9: Tìm 2 số chẵn liên tiếp có tổng là 338.
Câu 10: Tìm 2 số chẵn liên tiếp có tổng là 694.
câu 1:số lớn 1086 số bé:923
câu 2:69
câu 3:389
câu 4:19
câu 5:39
câu 6: 107 và 108
câu 7:209 và 210
câu 8:1004 và 1005
câu 9:168 và 170
câu 10: 346 và 348
câu 1: số lớn 1068
số bé 923
câu 2: 69
câu 3: 389
câu 4: 43210
câu 5: 54210
câu 6: số bé 107
số lớn 108
câu 7: số bé 209
số lớn 210
câu 8: số bé 1004
số lớn 1005
câu 9: số bé 168
số lớn 170
câu 10: số bé 346
số lớn 348
Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.
Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.
Câu 9: Viết chương trình sử dụng lệnh lặp While..do để 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 vào từ bàn phím.
giupa nha các hảo hán !
Câu 1: Cho 1 vài ví dụ về hoạt động lặp đi lặp lại trong cuộc sống?
Câu 2: Các câu lệnh lặp đúng hay sai? Nếu sai sửa lại cho đúng?
a) For i:=10 to 1 do write('a');
b) For i:=1 to 10 do write('a');
c) For i:=1 to 10 do write('a'); write('b');
Bài 3: For i:=1 to n do readln(a); lặp mấy lần?
Bài 4: Cho đoạn chương trình sau: S:=0; For i:= 1 to 5 do S:=S+i;
Hỏi sau khi kết thúc chương trình thì S bằng bao nhiêu?
Bài 5: Viết chương trình tính tổng của 10 số tự nhiên đầu tiên.
Làm nhanh nhanh giúp em nha mấy anh mấy chị. Cảm ơn trước nha. :))
Câu 1:
-Đánh răng rửa mặt mỗi ngày
-Đi học
-Đi ngủ
Câu 2:
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng
Câu 3:
Lặp n-1+1=n(lần)
Câu 4:
S=15
Câu 5:
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 1:
uses crt;
var p,i:integer;
begin
clrscr;
p:=1;i:=1;while i<=5 do
begin
p:=p*i;i:=i+1;
end;
write(p);
readln;
end.
bai 2:
uses crt;var p,i:integer;begin clrscr; p:=1; i:=0; while i <=10 do begin
i:=i+1; if (i mod 2<>0) then p:=p*i; end; write(p); readln;end. bai 3:
uses crt;var n,i,p:integer;begin clrscr; write('nhap n: '); readln(n); i:=1; p:=1; while i<=n do begin if i mod 2=0 then p:=p*i; i:=i+1; end; write(p); readln;end.
*Cách khác: Dùng for
Câu 1:
uses crt;
var p,i:longint;
begin
p:=1;
for i:=1 to 4 do
p:=p*i;
writeln(p);
readln;
end.
Câu 2:
uses crt;
var i,s:longint;
begin
clrscr;
s:=1;
for i:=1 to 10 do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Câu 3:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln(s);
readln;
end.
câu 1viết chương trình tính tổng của các số lẻ nhỏ hơn N với N được nhâp từ bàn phím
câu 2 viết chương trình in ra màn hình n*
câu 3 viết chương trình tính tổng của N số sao cho tổng đó lớn nhất nhỏ hơn 1000
giúp mình đi mai mk thi rồi
Dùng câu kệnh lặp while...do viết chương trình tính tổng các số tự nhiên liên tiếp từ 1đến1000
Uses crt;
Var i,tong:integer;
Begin
tong:=0;i:=1;
While i<=1000 then
Begin
tong:=tong+i;
i:=i+1;
End;
Writeln('Tong: ',tong);
readln;
End.
