Ngày tải lên :
11/10/2013, 13:11
... b=’);Read(b); (0,75)
Writeln(‘Dien tich hinh A la:’ , 2* a*b+3 .14 *a*a /2) ; (1)
Readln; (0 ,25 )
End.
Đề 2:
Câu 1: Viết chương trình tính diện tích hình chữ nhật.
Câu 2: Viết chương trình tính diện tích hình bán ... la:’ , r*r*3 .14 /2) ; (1)
Readln; (0 ,25 )
End.
Câu 3: Viết chương trình nhập vào hai số và tính tổng, tích, hiệu, thương, div, mod
của nó. (4đ)
Program Cacpheptinh; (0 ,25 )
Uses Crt; (0 ,25 )
Var x, ... Crt; (0 ,25 )
Var x, y: Integer; (0 ,25 )
Begin
Clrscr; (0 ,25 )
2
Writeln(‘nhap x:’);Read(x); (0 ,25 )
Writeln(‘nhap y:’);Read(y); (0 ,25 )
Writeln(‘Tong la:’ , x+y); (0 ,25 )
Writeln(‘Tong la:’ , x-y); (0,5)
Writeln(‘Tong...