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.

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
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)
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;

}

Bình luận (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;

}

Bình luận (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.

Bình luận (0)
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;

}

Bình luận (0)