C1:

uses crt;

var i,n,S:integer;

begin

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

S:=0;

for i:=1 to n do S:=S+i;

writeln('Tong:',S);

readln;

end.

C2:

Inp: nhập b,c

Out: xuất ra màn hình x

Thuật toán:

B1: nhập b,c

B2: x<--(0-c)/b

B3: xuất ra màn hình x 

C3:

a, 1/b+1/d

b,1/x-a/5*(b+2)+a

c,((a+b)*(a+b))/2><1

d.2*x+3<=25*y

C4:

uses crt;

var a,b:integer;

begin

write('nhap a:');realdn(a);

write('nhap b:');realdn(b);

if a<b then writeln('a<b') else if a>b then writeln('a>b') else writeln('a=b');

readln;

end.

Câu 1 :

uses crt;

var i, N, S : integer;

begin

clrscr;

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

S := 0; for i := 1 to N do S := S + i;

write('S = ', S);

readln

end.

Câu 2 :

- Xác định bài toán :

+ Input : hệ số b, c

+ Output : nghiệm x thoã mãn bx + c = 0

- Mô tả thuật toán :

+ Bước 1 : nhập hệ số b, c

+ Bước 2 : nếu b = 0 và c = 0 thì phương trình vô số nghiệm

+ Bước 3 : nếu b = 0 và c <> 0 thì phương trình vô nghiệm

+ Bước 4 : nếu a <> 0 thì x ← - c/ b

+ Bước 5 : in thông báo, kết thúc

Câu 3 :

a) 1 / b + 1/d

b) 1/ x + a / 5 * (b + 2) + a

c) sqr(a + b) / 2 <> 1

d) 2 * x + 3 <= 25 * y

Câu 4 :

uses crt;

var a, b : integer;

begin

clrscr;

readln(a, b);

if a > b then write('a > b')

else if a < b then write('a < b')

else write('a = b');

readln

end.