Bài 1.
Input: a,1 cạnh và chiều cao tương ứng h
b,năm sinh
Output: a,diện tích của hình tam giác
b,thông báo tuổi tương ứng
Bài 2.
Var a,b:integer;
Const c=3;
Begin
a:=200;
Write ('b=');readln(b);
b:=a/c;
Readln;
End.
(Bạn so sánh để tìm lỗi nha.)
Bài 3.
a,0
b,-9,5
(Không biết có đúng không.)
Bài 4.
Var a:real;
Begin
Writeln ('Nhap vao 1 so thuc');Readln(a);
If (a mod 2 <>0) then writeln ('a la so le') else writeln ('a la so chan');
Readln;
End.