Câu 1: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím (sử dụng câu lệnh lặp for ... do) Câu 2: Hãy chỉ ra INPUT(đầu vào), OUTPUT(đầu ra) và mô tả thuật của bài toán: Giải phương trình bậc nhất dạng tổng quát bx+c=0? Câu 3: Viết các biểu thức toán dưới đây bằng các kí hiệu trong Pascal: a. $\frac{1}{b}$ + $\frac{1}{d}$ b. $\frac{1}{x}$ - $\frac{a}{5}$(b+2)+a c. $\frac{(a+b)^2}{2}$ $\neq$ 1 d. 2x+3 $\leq$ 25y Câu 4: Viết Chương trình nhập vào từ bàn phím hai số và so sánh hai số, thông báo ra màn hình (sử dụng câu lệnh điều kiện)? Plsss tui dốt tin lắm huhu

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.

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.