Chọn A

Chọn A

Các lỗi:

Dòng 1: -> Program tinh_toan;  (đặt tên không được chứa dấu cách trắng)

Dòng 2: -> var a,h,s: integer; (khai báo biến : var <tập biến>: <kiểu dữ liệu>;

Dòng 4: -> a:=3; (lệnh gán <biến>:=<giá trị>;)

Dòng 6: -> s:=(a*h)/2 (kết thúc câu lệnh kết thúc bởi dấu chấm phẩy)

Ở dòng 6 biến S được gán bởi phép chia nên bắt buộc phải khai báo biến S là kiểu dữ liệu là real (số thực). 

Vậy quay lại dòng 2: -> var a,h: integer; s: real;

#include <bits/stdc++.h>

using namespace std;

long long a,b,s,p;

int main()

{

cin>>a>>b;

s=a+b;

p=a*b;

cout<<"Tong la:"<<s<<endl;

cout<<"Tich la:"<<p;

return 0;

}

b.

Program Hoc24;

Uses crt;

Var r,S,C:real;

Begin

Write ('Ban kinh la');

Readln (r);

S:=r*r*3.14;

C:=r*2*3.14;

Writeln ('Chu vi la',C);

Writeln ('Dien tich la',S);

Readln;

End.

#include <bits/stdc++.h>

using namespace std;

int main()

{

double dai=25.67; 

double rong=23.45;

cout<<fixed<<setprecision(2)<<dai<<endl;

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

return 0;

}

Bài 1:

Program HOC24;

var x,t: byte;

begin

write('Nhap so co 2 chu so: '); readln(x);

t:=(x mod 10)+(x div 10);

write('Tong 2 chu so cua so do la: ',t);

readln

end.

Bài 2: 

Program HOC24;

var ho_ten,gioi_tinh: string;

nam_sinh: integer;

begin

write('Ho va ten: '); readln(ho_ten);

write('Nam sinh: '); readln(nam_sinh);

write('Gioi_tinh: '); readln(gioi_tinh);

write('Nguoi do nam nay ',2021-nam_sinh,' tuoi');

readln

end.