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.