Đếm ô vuông
CHƯƠNG TRÌNH: program bai3_ovuong; const fi=’SQUARE.INP’; fo=’SQUARE.OUT’; var f:text; a,nga,doc:array[1..1000,1..1000] of integer; i,m,n,d,j:integer; procedure nhap; var i,j:integer; begin assign(f,fi); reset(f); readln(f,m,n); for…
Danh mục: Pascal
Code Pascal
Tính tổng các chữ số của một số
{====================================================== CHO SO NGUYEN N (0<N<2^31), HAY VIET CHUONG TRINH DE TINH TONG CAC CHU SO CUA SO NGUYEN N DU LIEU…
Tính tổng các số lẻ bình phương
Chương trình tính tổng các số lẻ bình phương với các yêu cầu sau: Chương trình tính tổng sau: S=1+3^2+5^2+…+(2n-1)^2 Dữ liệu đầu…
Free Pascal – Một IDE lập trình pascal
Free Pascal là phần mềm giúp các bạn học lập trình với ngôn ngữ pascal. Đặc biệt, Free Pascal là phần mềm…