K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

14 tháng 10 2019

uses crt;
var i,n:integer;
s,t:real;
begin
clrscr;
readln(n);
s:=0.5;
for i:=2 to n do
s:=s+1/(i+1);
writeln('tong la: ',s:5:2);
readln;
end.

8 tháng 3 2023

Đáp án D

9 tháng 3 2023

dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+(n*(n+1))/((n+2)*(n+3));

writeln(s:4:2);

readln;

end.

 Câu 30. Cho thuật toán tính tổng s= -1+2-3+4+…+n(-1)n sử dụng phương pháp liệt kê dưới đây:Bước 1: Nhập NBước 2: i ← 0, s← 1;Bước 3: i ← i+1Bước 4: Nếu i > N thì đưa ra tổng s và kết thúc chương trình.Bước 5: Nếu i chia hết cho 2 thì s ← s+i, quay lại B3Bước 6: Nếu i không chia hết cho 2 thì s ← s-i, quay lại B3Hãy cho biết bước sai trong thuật toán trên:A. Bước 2B. Bước 3C. Bước 4D. Bước 5  Câu 31: . Cho dãy a = 2  ...
Đọc tiếp

 

Câu 30. Cho thuật toán tính tổng s= -1+2-3+4+…+n(-1)n sử dụng phương pháp liệt kê dưới đây:

Bước 1: Nhập N

Bước 2: i ← 0, s← 1;

Bước 3: i ← i+1

Bước 4: Nếu i > N thì đưa ra tổng s và kết thúc chương trình.

Bước 5: Nếu i chia hết cho 2 thì s ← s+i, quay lại B3

Bước 6: Nếu i không chia hết cho 2 thì s ← s-i, quay lại B3

Hãy cho biết bước sai trong thuật toán trên:

A. Bước 2

B. Bước 3

C. Bước 4

D. Bước 5

 

 

Câu 31: . Cho dãy a = 2   4    7   6    8    9    5   12    13     3. 

Hỏi sau khi thực hiện xong thuật toán s = ?

B1: i ← 1 , s ← 0

B2: Nếu i > 10 thì đưa ra s rồi kết thúc

B3: s ← s + ai

B4:

    4.1: Nếu ai chia hết cho 2 thì i ← i + 1

    4.2: i ← i + 2

B5: Quay lại B2

A. 10

B. 20 

C. 16

D. Chương trình lỗi

 

 

Câu 32: Cho dãy a = 5   7   3   11   4    6   2   8. Cho biết giá trị x sau khi thực hiện xong thuật toán?

B1: i ← 1, x ← 0

B2: Nếu i > 8 thì đưa ra x rồi kết thúc

B3:

    3.1: Nếu i chia hết cho 2 thì  x ← x + ai. Trái lại x ← x - ai

    3.2: i ← i + 1 , quay lại B2

A. Tính hiệu a-b

B. Tính giá trị tuyệt đối của a-b

C. Tính hiệu b-a

D. Trả ra số 4,8

 

Câu 33: Cho n = 7; k = 4; a = 10     8      7      20       12      6      1. 

Hỏi sau khi thực hiện xong thuật toán T = ?

B1: Nhập k, n, và dãy  a1, a2, … an, 

B2: T ← 0 

B3: Nếu i > n đưa ra T rồi kết thúc

B4: Nếu ai  chia hết cho k thì T ← T + ai

B5: i ← i + 1, quay lại B3  

A. 1

B. 0

C. Không hiển thị gì    

Chọn đáp án và sửa lại chỗ sai  

1
24 tháng 12 2021

Câu 30: A

16 tháng 1 2018

i wtan youm att jjjfdef the fifture haixx

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

if (i%2==1) s=s+i*i;

cout<<s;

return 0;

}

16 tháng 1 2022

bn vt thành free pascal đc ko