Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Thanh Thanh
Xem chi tiết
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.

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.

daukhacgiabao
Xem chi tiết
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;

Ngochuynh
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:23

#include <bits/stdc++.h>

using namespace std;

double a,s;

int main()

{

cin>>a;

s=1/2*a*a;

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

return 0;

}

Ngochuynh
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:22

#include <bits/stdc++.h>

using namespace std;

double a,s;

int main()

{

cin>>a;

s=1/2*a*a;

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

return 0;

}

P.Thúy
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:07

uses crt;

var s1:real;

i,n,s2,a:integer;

begin

clrscr;

readln(n);

s1:=1;

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

writeln(s1:0:0);

s2:=0;

a:=10;

repeat

s2:=s2+a;

a:=a+1;

until s2>=10000;

writeln(s2);

readln;

end.

Hoài thịnh
Xem chi tiết
Nguyễn Minh Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 2 2022 lúc 14:45

#include <bits/stdc++.h>

using namespace std;

long long i,n;

double s;

int main()

{

cin>>n;

s=0;

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

{

if (i%2!=0) s=s+1/(i*1.0);

else s=s-1/(i*1.0);

}

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

return 0;

}