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.

23 tháng 12 2020

uses crt;

var a,m,i:integer;

s:real;

begin

clrscr;

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

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

s:=1;

for i:=1 to m do 

  s:=s+1/sqr(a+i);

writeln(s:4:2);

readln;

end.

8 tháng 3 2022

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if ((x<0) and (x%2!=0)) t=t+x;

}

cout<<t;

return 0;

}

2 tháng 1 2022

b: uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 5 do 

 s:=s+i;

writeln(s);

readln;

end.

8 tháng 3 2023

Câu a:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

 

9 tháng 3 2023

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

18 tháng 2 2022

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,x,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x%15==0) t=t+x;

}

cout<<t;

return 0;

}

10 tháng 1 2022

Program HOC24;

var s: integer;

i: byte;

begin

for i:=1 to 100 do s:=s+i;

write('S=',s);

readln

end.

26 tháng 2 2021

Program HOC24;

var s: real;

i,a: integer;

begin

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

s:=0;

if a>2 then

for i:=1 to 50 do s:=s+i/(a+i) else write(a,' chua thoa man dieu kien >2');

write('S = ',S:1:2);

readln

end.

26 tháng 2 2021

uses crt;

var a,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to 50 do 

  s:=s+i/(a+i);

writeln(s:4:2);

readln;

end.