viết chương trình tính tổng các số tự nhiên lẻ chia hết cho 5 và nhỏ hơn 1000 Hướng dẫn - i ban đầu = 5 - sau mỗi lần lặp 10, lên 10 (i = i thuộc 10 ) - Điều kiện cặp i < 1000
I. PHẦN LÍ THUYẾT
câu 1:cho đoạn chương trình sau:
S:=0;
For i:= 1 to 6 do S:=S+i;
Tính giá trị của S?
II. PHẦN BÀI TẬP:
câu 1: Viết chương trình tính tích của 10 số tự nhiên đầu tiên.
Câu 2: Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số
lần lặp chưa biết trước.
Câu 3: Hãy tìm hiểu đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trình
thực hiện bao nhiêu vòng lặp?
S:=1; n:=0;
While S <=10 do
Begin
n:=n+1;
S:=S+n;
End;
a)Viết cấu trúc điều kiện cho câu lệnh:125 là số không chia hết cho 5.
b)Viết đoạn chương trình tính tổng các số tự nhiên từ 1 đến 50 và in kết quả ra màn hình.
c)Nêu cú pháp của câu lệnh lặp For...do.
d)Nêu cú pháp của câu lệnh câu lệnh điều kiện thiếu và câu lệnh điều kiện đầy đủ.⚽
a: 125 mod 5<>0
b:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 50 do t:=t+i;
write(t);
readln;
end.
c: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
d:
Dạng thiếu: if <điều kiện> do <câu lệnh>;
Dạng đủ: if <điều kiện> do <câu lệnh 1> else <câu lệnh 2>;
2. Viết tập hợp A các số tự nhiên có hai chữ số mà tổng các chữ số bằng 5.
3. Viết tập hợp A các số tự nhiên có một chữ số bằng hai cách.
4. Cho A là tập hợp các số tự nhiên chẵn không nhỏ hơn 20 và không lớn hơn 30; B là tập hợp các số tự nhiên lớn hơn 26 và nhỏ hơn 33.
a. Viết các tập hợp A; B và cho biết mỗi tập hợp có bao nhiêu phần tử.
b. Viết tập hợp C các phần tử thuộc A mà không thuộc B.
c. Viết tập hợp D các phần tử thuộc B mà không thuộc A.
5. Tích của 4 số tự nhiên liên tiếp là 93 024. Tìm 4 số đó.
6. Cần dùng bao nhiêu chữ số để đánh số trang của quyển sách Toán 6 tập I dày 130 trang?
7. Tính tổng của dãy số sau: 1; 4; 7; 10; ...; 1000
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.
AI GIÚP MIK BÀI NÀY VS
1) viết chương trình tính tổng 100 số tự nhiên đầu tiên
2. viết chương trình kiểm tra số n nhập từ bàn phím có chia hết cho hai số 2 và 3 không. nếu có thì in ra dòng chữ chia hết và không chia hết
bài 1:
var i,n : integer;
writeln('nhap n');
readln(n);
for i:=1 to 100 do
s:=s+i;
writeln('tong la",s);
readln;
end.
bài 2:
var n:real;
begin
writeln('nhap n');
if n (mod 2=0) and (n mod 3=0) then
writeln('chia het roi')
else writeln(khong chia het');
readln;
end.
Bài tập Toán lớp 6 1. Hãy chỉ ra tính chất đặc trưng cho các phần tử của các tập hợp sau đây: a) A = {0; 5; 10; 15;....; 100} b) B = {111; 222; 333;...; 999} c) C = {1; 4; 7; 10;13;...; 49}
2. Viết tập hợp A các số tự nhiên có hai chữ số mà tổng các chữ số bằng 5.
3. Viết tập hợp A các số tự nhiên có một chữ số bằng hai cách.
4. Cho A là tập hợp các số tự nhiên chẵn không nhỏ hơn 20 và không lớn hơn 30; B là tập hợp các số tự nhiên lớn hơn 26 và nhỏ hơn 33. a. Viết các tập hợp A; B và cho biết mỗi tập hợp có bao nhiêu phần tử. b. Viết tập hợp C các phần tử thuộc A mà không thuộc B. c. Viết tập hợp D các phần tử thuộc B mà không thuộc A.
5. Tích của 4 số tự nhiên liên tiếp là 93 024. Tìm 4 số đó.
6. Cần dùng bao nhiêu chữ số để đánh số trang của quyển sách Toán 6 tập I dày 130 trang?
7. Tính tổng của dãy số sau: 1; 4; 7; 10; ...; 1000
8. Tính nhanh: a) 2.125.2002.8.5 ; b) 36.42 + 2.17.18 + 9.41.6 c) 28.47 + 28.43 + 72.29 + 72.61 ; d) 26.54 + 52.73
9. Kết quả dãy tính sau tận cùng bằng chữ số nào? 2001.2002.2003.2004 + 2005.2006.2007.2008.2009
Mk nhìn vào tưởng giải rồi chứ!!@
B1 :Tính tổng các số tự nhiên khác 0 nhỏ hơn 1000 và ko chia hết cho 5
B2 : Có bao nhiêu dãy số tự nhiên khác 0 và liên tiếp chứa 2 số trở lên mà có tổng = 100
Ngoài lề tí!!
Ai viết phương trình pascal giúp em voi :((
Viết chương trình pascal
a) Nhập N nguên dương là số phần tử của dãy
b) giá trị ngẫu nhiên cho dãy, mỗi phần tử có /m[i]/ ≤ 1000
c) in dãy ban đầu ra
d) In các số chia hết cho 3 của dãy
a)nguyên tử theo hàm độ x y là nguyên tử y
b)giá trị là o,87645
c)784736
d)878,985,354,894,9045
chị học lớp 9 rồi nên hiểu mà,chị đc 10 bài này đó,tin chị đi
Viết chương trình tính tổng các số tự nhiên lẻ (chẳn) đầu tiên cho đến khi tổng
đó bằng 1000 thì dừng lại.
Giúp mik vì mai mik kt rùi :((