Bài 1: Tìm chổ sai trong các lệnh khai báo sau và sửa lại cho đúng

A, Var start, begin : real; //trùng từ khóa

B, Const x: = 3.14; y:= 1000; 

C, Var a:=5;

D, Const ten lop = ‘8E’; //Const tenLop = '8E';

E, Var Xep_loai, diem :Integer, real; //var xep_loai :integer ;  diem: real;

F, Var nguyen1, nguyen2 : Integer, thuc1, thuc2: real; //châm phẩy sau integer

G, Const 3ban = ‘Cuong’ , ‘Anh’, ‘Dung’; //const baban = 'Cuong, Anh, Dung'

H, Const ten_nhom = Tin hoc; //Const ten_nhom = 'Tin hoc'; 

Bài 2: Giả sử trong một chương trình Pascal, a và b là hai biến kiểu số nguyên, r là kiểu số thực và s là một biến kiểu xâu. Các phép gán nào sau đây là không hợp lệ

A, a : = 120;

B, r:=a/b;

C, s:=’ truong luu vinh’;

D, a:=32.000;

E, a:=b mod 3;

F, s:=a +b + r;

G, a:= 65000;

H, a:=a mod b;

I, r:= s;

J, a:=r;

K, r:=a div b;

L, a:=a/b;

Bài 3. Viết chương trình tính diện tích tam giác biết chiều cao và cạnh đáy nhập vào từ bàn phím

program stamgiac;
uses crt;
var a: integer;
h, s : real;

begin
clrscr;
repeat
write('Nhap a(so chan): ');
readln(a);
until a mod 2 =0;
write('Nhap h: ');
readln(h);
S:= a*h;
write('Dien tich tam giac la: ', s:5:3);
readln
end.

Bài 4. Viết chương trình nhập vào hai số nguyên a,b và tính trung bình cộng của hai số

program tbcong;
uses crt;
var a, b: integer;
s : real;

begin
clrscr;
write('Nhap a: ');
readln(a);
write('Nhap b: ');
readln(b);
S:= (a+b)/2;
write('TBC la: ', s:5:3);
readln
end.

Bài 5. Hãy chỉ ra INPUT và OUTPUT của các bài toán sau:

a. Xác định số học sinh trong lớp cùng mang họ Trần.

b. Tính tổng của các phần tử lớn hơn 0 trong dãy n số cho trước.

Bài 6. Giả sử x và y là các biến số. Hãy cho biết kết quả của việc thực hiện thuật toán sau:

Bước 1. x  x + y

Bước 2. y  x - y

Bước 3. x  x – y

Bài 7: Xây dựng thuật toán để giải bài toán:

Cho trước ba số dương a, b, c.

Hãy cho biết 3 số đó có phải là độ dài ba cạnh của một tam giác hay không?

giải

B1: nhập 3 số dương a,b,c

B2: nếu a+b <= c, chuyển đến b6

B3: nếu a+c <= b, chuyển đến b6

B4: nếu b+c <= a, chuyển đến b6

B5: cho kết quả a,b,c là 3 cạnh của tam giác 

B6: in ra kết qua và kết thúc thuật toán 

Bài 8. Tìm hiểu ví dụ 6 mục 4

bài 5. Viết lại thuật toán tìm giá trị lớn nhất và nhỏ nhất của dãy số a1,a2,a3…. an cho trước.

giúp mk