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.

3 giờ trước (12:47)

    Olm chào em, em cần làm gì với dãy dữ liệu này? Khi đăng câu hỏi trên Olm Em cần lưu ý, ghi rõ yêu cầu câu hỏi để nhận được sự trợ giúp tốt nhất cho tài khoản Olm Vip. 

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 2: 

#include <bits/stdc++.h>

using namespace std;

double p1,p2;

int i,n;

int main()

{

cin>>n;

p1=1;

p2=1;

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

{

if (i%2==0) p2=p2*(i*1.0);

else p1=p1*(i*1.0);

}

cout<<fixed<<setprecision(2)<<p1<<endl;

cout<<fixed<<setprecision(2)<<p2;

return 0;

}

Câu 1 : Hãy cho biết kết quả xuất ra màn hình sau khi thực hiện câu lệnh:             Writeln(‘5*(6-3) = ’ , 5*(6-3));a.  ‘5*(6-3) = ’, 5*(6-3);          b.  29;       c.  5*(6-3) =  15;    d.  5*(6-3) =  5*(6-3);  Câu 2 : Hãy chọn khai báo đúng trong các khai báo sau đây.a const x = y = 5;    b. var n = 8;           c. const m: integer;      d. const n = 8;Câu 3 : Hãy cho biết kết quả xuất ra màn hình sau khi thực hiện câu lệnh:             Writeln(‘4*(6-3) = ’ ,...
Đọc tiếp

Câu 1 : Hãy cho biết kết quả xuất ra màn hình sau khi thực hiện câu lệnh:

             Writeln(‘5*(6-3) = ’ , 5*(6-3));

a.  ‘5*(6-3) = ’, 5*(6-3);          b.  29;       c.  5*(6-3) =  15;    d.  5*(6-3) =  5*(6-3);  

Câu 2 : Hãy chọn khai báo đúng trong các khai báo sau đây.

a const x = y = 5;    b. var n = 8;           c. const m: integer;      d. const n = 8;

Câu 3 : Hãy cho biết kết quả xuất ra màn hình sau khi thực hiện câu lệnh:

             Writeln(‘4*(6-3) = ’ , 4*(6-3));

a)  4*(6-3) = ’, 4*(6-3)       b)  29     c)  4*(6-3) =  12        d)  4*(6-3) =  4*(6-3)

Câu 4 : Kết quả của câu lệnh Write (‘15 mod 4 = ’, 15 mod 4 ) là gì:

a.  15 mod 4 =0.   b. 15 mod 4= 2.      c. 15 mod 4= 3.      d.15 mod 4 = 1

Câu 5 : Trong Pascal, giả sử x:= a/b khi đó x thuộc kiểu dữ liệu nào.

  a.  integer;        b. real;          c. char          d. string

Câu 6 : Trong Pascal, giả sử x là biến kiểu số nguyên. Phép gán nào sau đây đúng?

   a) x:=30         b) x:=a/b        c) x:=20.5           d) x:=’Truong THCS Son Ha’

Câu 7 : Output của bài toán giải phương trình bậc hai ax² + bx + c = 0 là :

a.    a, b, x;               b. a, c, x;            c. a, b, c       d. x, a, b, c.

            

 

1
19 tháng 10 2021

Câu 1: C

Câu 2: D

Câu 3: C

Câu 4: C

2 tháng 3 2018

1.

Var i : integer;

S : real;

Begin

S:= 0

For i:= 1 to 6 do S:= S+(i - (i+1));

Write (S);

Readln;

End.

2.

Var i : integer;

S : real;

Begin

S:= 0

For i:= 1 to 6 do S:= S+((i+1)/i);

Write (S);

Readln;

End.

1 tháng 4 2018

môn Tin lớp 8 đó nha mấy bnkhocroi

uses crt;

var s:real;

i,n:longint;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/(i*(i+2));

writeln(s:4:2);

readln;

end.

31 tháng 1 2021

Theo mk dòng thứ 7 mà bạn ghi á, phải là s:=1 chứ? Theo mk nghĩ là v, bạn xem lại giúp vs ạ?

D
datcoder
CTVVIP
9 tháng 11 2023

Program HOC24;

uses crt;

var s: real;

i,n,j,l: integer;

begin

clrscr;

s:=2014;

for i:= 1 to 2012 do

for j:= 4 to 2015 do

for l:=2 to 2013 do

s:=s+(i*j)/(l*(l+1));

write('S = ',s:6:2);

Readln;

end.