a: uses crt;
var s,i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
b:
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
c:
uses crt;
var s:real;
i,n:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s+1/(n+1):4:2);
readln;
end.
Giúp mik nhanh nha Câu 1: viết câu lệnh tính tổng s=-1-1/2-1/3-...-1/n với n là số nguyên nhập từ bàn phím Câu 2: Viết ct nhập điểm ktra học kì môn tin học cho N học sinh và in ra màn hình.(N và điểm đc nhập từ bàn phím, sử dụng biến mảng) Câu 3: Viết ct nhập vào mảng các số nguyên A gồm 30 phần tử, các phần tử có gtrị ko quá 32767. Thông báo ra màn hình ptử nhỏ nhất và vị trí trong mảng
Câu 1: Cho s và i là biến nguyên,Khi chạy đoạn chương trình sau:
S:=0 ; i:+0
While i<3 do begin i:=i+1;
s:=s+i*i;end;
writeln(s);
Kết quả in lên màn hình s là bao nhiêu ?
Câu 2: số thực a,b nhập từ bàn phím . tính giá trị biểu thứ
S= a^2 +b^2 In ra S
giúp mình với mai mình ktra rùi :((
5. Viết chương trình a. Viết chương trình nhập và in ra 1 mảng gôm 40 phần tử kiểu số nguyên b. Viết chương trình nhập vào 1 mảng n số thực và in ra mảng đó ( với n là sô nguyên được nhập từ bàn phím và 0
mn giúp em với ạ sắp thi rồi :|||
câu 1: viết chương trình tính N! (với số N là số tự nhiên được nhập từ bàn phím
câu 2: viết chương trình tính tổng sau
s=1+1/2+1/3.....+1/n
Câu 1; Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.
Câu2. Viết các biểu thức toán sau đây dưới dạng biểu thức trong Pascal
a. \(\dfrac{15}{2+3}\) - \(\dfrac{8}{x^3}\) +y b. \(\dfrac{\left(10+x\right)^2}{3+y}\)- \(\dfrac{18}{5+y}\)
Câu 3. Bạn Tuấn viết chương trình như sau:
1. program Tinh toan
2 uses crt;
3. var
4. x, y : integer;
5. tb = real;
6. thongbao : integer;
7. const a := 2;
8. begin
9. clrscr;
10. thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
11. write(‘Nhap gai tri cho x = ‘); readln(x);
12. write(‘Nhap gia tri cho y = ‘); readln(y);
13. tb = (x+y)/a;
14.writeln(thongbao, tb:2:1);
15. readln;
16. end.
a) Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng
b. ) Hãy phân biệt tên biến, tên hằng trong chương trình trên
HELD ME !!!!!!!!!!
Đề 1 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )
- Dòng 1: In ra dãy số đã sắp xếp theo thứ tự tăng dần
- Dòng 2: In ra các phần tử trong dãy số chia hết cho 3
- Dòng 3: Tính tổng các phân tử trong dãy số là số nguyên tố
Đề 2 ; Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )
- Dòng 1: : In ra dãy số đã sắp xếp theo thứ tự giảm dần
- Dòng 2: In ra các phần tử trong dãy số chia hết cho 5
- Dòng 3: Tính tổng các phân tử trong dãy số là số chính phương
Đề 3 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )
- Dòng 1: : In ra dãy số đã sắp xếp những số chia hết cho 5 đứng đầu dãy
- Dòng 2: In ra các phần tử trong dãy số chia hết cho 7
- Dòng 3: Tính tổng các phân tử trong dãy số là số đối xứng có trong dãy số
huhu giúp tớ với
Đề 1 Câu 1 (3.0 điểm): Viết chương trình nhập vào số nguyên dương N và thực hiện tính tổng S=3+5+7+..+(2n+1). Câu 2 (7.0 điểm): a. Viết chương trình nhập vào một dãy số nguyên có n phần tử. b. Đưa ra màn hình các phần tử có giá trị âm ở trong dãy. c. Tìm phần tử lớn nhất có trong dãy
Cứu tớ với ạ
Câu 2 là 1 phần 2, 1 phần 3, 1 phần 20 í ạ không phải chia đâu ạ
Câu 1: Lập trình tổng: A=1+2+3+...+n Ở đây n là số tự nhiên được nhập từ bàn phím. ( Viết bằng lệch for...to...do)
Câu 2: Lập trình tính tổng nghịch đảo của 20 số tự nhiên đầu tiên 1+1/2+1/3+...1/20
Bài 1 : Viết chương trình in các số lẻ từ n đến m ( với n , m được nhập từ bàn phím ) , theo hàng ngang mỗi số cách nhau một khoảng trắng
Bài 2 : Viết chương trình in các số chẵn từ 1 đến 100
Giúp mk nha
