Những câu hỏi liên quan
Thái Quốc
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:42

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,kt;

cin>>n;

cout<<pow((n*(n+1)/2),4);

}

Bình luận (0)
Lê Thanh Tuyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 2 2021 lúc 11:58

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;

Bình luận (0)
Xem chi tiết
Minh Lệ
15 tháng 3 2021 lúc 19:04

Program HOC24;

var a: real;

i,n: integer;

begin

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

a:=0;

for i:=1 to n do a:=a+1/i;

write('A= ',a);

readln

end.

Bình luận (0)
Hoàng Như Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 2 2022 lúc 23:31

#include <bits/stdc++.h>

using namespace std;

long long n,i,s;

int main()

{

cin>>n;

if (n%2==0)

{

s=1;

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

if (i%2==0) s=s*i;

cout<<s;

}

else 

{

s=1;

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

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

cout<<s;

}

return 0;

}

Bình luận (0)
Chuu
Xem chi tiết
Minh Lệ
6 tháng 3 2023 lúc 23:26

Program HOC24;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

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

s:=0;

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

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

readln

end.

Bình luận (1)
Minh Lệ
7 tháng 3 2023 lúc 22:52

Program HOC24;

var i,n: integer;

S: real;

begin

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

i:=1; s:=0;

while i<=n do

begin

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

i:=i+1;

end;

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

readln

end.

Bình luận (0)
Thị Thảo Ly Hoàng
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 12:21

Program HOC24;

var i,n: integer;

s: longint;

begin

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

s:=0;

for i:=1 to n do s:=s+sqr(i);

write('S= ' ,s);

readln

end.

Bình luận (0)
HT.Phong (9A5)
13 tháng 3 2023 lúc 12:27

Uses crt;

var i,n,y: integer;

begin clrscr;

readln(n);

for i:=1 to n do s:=i*i;

Writeln(s);

readln;

end.

Bình luận (1)
daukhacgiabao
Xem chi tiết
Hoài thịnh
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Minh Lệ
1 tháng 4 2022 lúc 11:26

Program HOC24;

var i,n: integer;

S: real;

begin

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

s:=0;

for i:=1 to N do s:=s+1/i;

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

readln

end.

Bình luận (0)