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.

19 tháng 4 2020

Câu 1: Bạn ghi rõ đề hơn nhé.

Câu 2:

Program hotrotinhoc;

var n,i: integer;

s: real;

begin

s:=0;

n:=0;

while n<10 do

begin

n:=n+1;

if n mod 2=1 then s:=s-(1/3*n) else s:=s+(1/3*n);

end;

write(s:1:2);

readln

end.

 

8 tháng 3 2023

Đáp án D

9 tháng 3 2023

dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd

Bài 1: 

function canbac2(x:longint):real;

begin

canbac2:=sqrt(x);

end;

Bài 2: 

function tong(n:longint):longint;

var s,i:longint;

begin

s:=0;

for i:=1 to n do 

  s:=s+i;

tong:=s;

end;

1 tháng 3 2021

Program HOC24;

var n,i: integer;

s: longint;

begin

write('Nhap N: '); readln(n);

s:=2021;

for i:=0 to n do s=s+(2*i+1);

write('S= ',s);

readln

end.

*Cách 2: Dùng While do

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=2021;

i:=0;

while i<=n do 

  begin

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

i:=i+1;

end;

writeln(s);

readln;

end.

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

n:=1;

s:=0;

while (n<=10000) do 

begin

n:=n+2;

s:=s+1/n;

end;

writeln(s:4:2);

readln;

end.

22 tháng 2 2022

Chưa đưa ra kết quả được ạ :<

31 tháng 12 2021

mong mọi người giúp mình đang cần gấp

cảm ơn mọi  người nhiều

31 tháng 12 2021

2:

#include <bits/stdc++.h>

using namespace std;

double s;

int n,i;

int main()

{

cin>>n;

s=0;

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

s=s+(i*1.0)/((i+1)*1.0);

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

return 0;

}

uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

  writeln('3*',i,'=',3*i);

readln;

end.