Câu 2 : Viết chương trình đưa thông báo sau ra màn hình, mỗi thông báo trên một dòng: Câu 3: Viết chương trình tính tổng của 2 số nguyên a và b, với a, b được nhập từ bàn phím Bài 4: Viết chương trình tính chu vi, diện tích của hình tròn với bán kính được nhập vào từ bàn phím? Bài 5: Viết chương trình tìm số lớn nhất trong 2 số nguyên a, b Câu 6: Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ. Câu 8: Bạn Tuấn viết chương trình như sau: Program sualoi; Var a,b: integer; Begin; Write( nhap so thu nhat: ); readln(‘a’); Write( nhap so thu hai: ); readln(‘b’); Write( ‘tong cua hai so la:’, a-b ); Real End; Em hãy tìm lỗi sai và sửa lại cho đúng để bạn Tuấn chạy được chương trình

2/

Program BTH;

uses crt;

Begin

clrscr;

Writeln('    PHONG GD-DT DINH QUAN   ');

Writeln('TRUONG THCS NGO THOI NHIEM ');

readln;

end. 

3/

Program BTH;

uses crt;

var a,b,c:integer;

Begin

clrscr;

Write('Nhap a: ');readln(a);

write('Nhap b: ');readln(b);

c:=a+b;

writeln('Tong hai so tren la: ',c);

readln;

end.

4/

Program BTH;
Uses crt;
var a,b,c:real;
begin
clrscr;
write('Nhap ban kinh hinh tron: ');readln(a);
b:=a*2*pi;
c:=sqr(a)*pi;
writeln('Chu vi hinh tron la: ',b:4:2);
writeln('Dien tich hinh tron la: ',c:4:2);
readln;
end.

5/

Program BTH;

uses crt;

var a,b:integer;

Begin

clrscr;

Write('Nhap a: ');readln(a);

write('Nhap b: ');readln(b);

If a>b then writeln(a,' lon hon ',b) else writeln (b,' lon hon ',a);

readln;

end.

6/

Program BTH;

uses crt;

var a:integer;

Begin

clrscr;

Write('Nhap a: ');readln(a);

If a mod 2=0 then writeln(a,' la so chan') else writeln(a,' la so le);

readln;

end.

8/

Program sualoi;

Var a,b: integer;

Begin;

Write( nhap so thu nhat: ); readln(‘a’);

Write( nhap so thu hai: ); readln(‘b’);

Write( ‘tong cua hai so la:’, a-b );

Real

End;

Chỗ sai in đậm

Sửa lại

Program sualoi;

Var a,b: integer;

Begin

Write( nhap so thu nhat: ); readln(a);

Write( nhap so thu hai: ); readln(b);

Write( ‘tong cua hai so la:’, a+b );

Readln;

End.