- 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

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.

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.

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.

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

}

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.

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.

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.

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.

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

}

Câu lệnh while mà bạn

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.