Viết chương trình tính trung bình của n số (nhập từ bàn phím ) Program Trung_binh_day_so ; VAR n, count : Integer ; ...
Hiển thị các bài đăng có nhãn Pascal. Hiển thị tất cả bài đăng
07:24 Pascal
Code Pascal: Cấu trúc rẽ nhánh IF..THEN..ELSE (cơ bản)
//Tính căn bậc 2 của một số PROGRAM Tinh_can_bac_hai ; VAR a : Real ; BEGIN Write ( Nhập số a = ); Re...
14:26 Lập trình căn bản . Pascal
Code Pascal: Nhập một xâu, kiểm tra xâu có đối xứng không
Yêu cầu: Nhập một xâu, kiểm tra xâu có đối xứng không procedure test_xaudoixung; var s: String; i,j,count:integer; begin write('N...
14:20 Lập trình căn bản . Pascal
Code Pascal: Nhập vào một số, kiểm tra số có đối xứng hay không
procedure bai1; var n,n1,temp:integer; BEGIN repeat clrscr; write('Nhap vao so n='); readln(n); ...