Những câu hỏi liên quan
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
25 tháng 7 2017 lúc 9:38

- Xác định bài toán (0,5đ)

Input: Nhập N và dãy  a 1 , a 2 , . . . , a n

Output: Đưa ra kết quả tổng S

- Thuật toán (1,75đ):

Bước 1: Nhập N và  a 1 , a 2 , . . . , a n

Bước 2: S ← 0; i ← 1

Bước 3: Nếu i >Nthì đưa ra S rồi kết thúc

Bước 4: Nếu ai⟨0 thì S ←S+ a i 2

Bước 5: i ← i + 1 và quay lại Bước 3

Bình luận (0)
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

if i mod 2 = 1 then s:=s+i;

readln;

end.

Bình luận (0)
Vy Tường_8a2
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 4 2022 lúc 18:30

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i*i;

end;

writeln(s);

readln;

end.

Bình luận (0)
nguyễn bảo nga
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 1 2022 lúc 22:25

#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++)

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

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

return 0;

}

Bình luận (0)
Gia Linh
Xem chi tiết
ʍ๏ɲ ȼhąɲ
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 10 2021 lúc 23:49

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

write(a+b);

readln;

end.

Câu 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a+b-c);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
5 tháng 10 2021 lúc 23:50

Câu 3: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a-b);

readln;

end.

Câu 4: 

uses crt;

var x,y,z:integer;

begin

clrscr;

readln(x,y,z);

writeln((x+y)*z);

readln;

end.

Bình luận (0)
Nguyenthanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:44

Câu 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do

s:=s*i;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:44

Câu 2: 

uses crt;

var t,i,n:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)
Truy Kích 3.0
29 tháng 5 2021 lúc 9:51

Bài 2 dùng công thức n*(n+1)/2

Bình luận (0)
Phương Linh Pham Thị
Xem chi tiết
HT.Phong (9A5)
24 tháng 3 2023 lúc 12:06

int main() 

{

int n;

long s;

s=0;

i=1;

printf("\nSo n la: ");

scanf("%d",&n);

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

    {

    s=s+i;

    }

printf("\nTổng %d là %ld: ", n, s);

}

Bình luận (1)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
29 tháng 5 2018 lúc 13:36

Program bt_3;

Uses crt;

Var Tong, n, i: integer;

Begin

 Clrscr;

 Writeln(‘nhap n=’);

 Readln (n);

 Tong:=0;

 For i:=1 to n do

 If I mod 5 = 0 then Tong:= Tong+i;

 Writeln(‘Tong la:’,Tong);

 Readln

End.

Bình luận (0)