program giai;
uses crt;
var A: real;
x,n: integer;
begin
clrscr;
write('Nhap n = '); read(n);
write('Nhap x = '); read(x);
A:=1/(9*x+n);
write('Ket qua phep tinh A = ',A);
readln
end.
Viết chương trình để tính chu vi và diện tích của hình vuông với cạnh a là số nguyên được nhập từ bàn phím.
viết chương trình tính tổng x, y với x, y được nhập từ bàn phím.
viết chương trình tính trung bình 3 số x, y, z được nhập từ bàn phím
Câu 1 : Viết chương trình nhập vào 1 số nguyên dương c từ bàn phím. Hãy viết chương trình pascal xác định số a chia hết cho 2 hay không? In kết quả ra màn hình.
Câu 2: Viết chương trình lập 3 số nguyên a,b,c từ bàn phím. Em hãy viết chương trình pascal tính tổng 3 số trên. In kết quả ra màn hình.
Câu 3: viết chương trình pascal nhập 3 số nguyên từ bàn phím. Em hãy viết chương trình pascal kiểm tra xem số vừa nhập là chẵn hay lẻ và in kết quả ra màn hình.
Câu 1: Viết chương trình nhập vào một sô nguyên dương y từ bàn phím. Hãy viết chương trình pascal số y có chia hết cho 5 hay không và in kết quả ra màn hình.
Câu 2: Viết chương trình nhập vào 3 số thực m,n,h. Hãy viết trương trình pascal tìm điểm lớn nhất trong 3 số đó và in kết quả ra màn hình.
Câu 3: Viết chương trình nhập vào 2 số nguyên x,y từ bàn phím. Em hãy viết chương trình pascal sắp xếp 2 biến trên theo giá trị tăng dần và in ra màn hình kết quả đã sắp xếp.
Ngày thứ 2 vui vẻ :
C1 : Viết chương trình tính tổng : 1+2+3+...+a . IN kết quả ra màn hình ( với tổng < 150 )
C2: Tìm A biết A=x(2+x)-x với x được nhập từ bàn phím
C3 : Tìm ước chung của 10 và 20 . In kết quả ra màn hình
Phần thưởng như sau :
C1-C2-C3→3GP
Câu 1: Nhập mảng A và tính tổng tất cả phần tử trong mảng đó ra màn hình
Câu 2: \(A=\frac{x^6}{x^3}+2\) . In kết quả của A ra màn hình biết x là số nguyên dương được nhập từ bàn phím
Viết trương trình tính tổng , tích của 3 số nguyên x y z nhập từ bàn phím
Viết chương trình vào từ bàn phím 3 số a,b,c . Kiểm tra xem a,b,c có phải là 3 cạnh của tam giác không . Đưa thông báo kết quả ra màn hình
hãy mô tả thuật toán để tính tổng A Sau đây(n là số tự nhiên được nhập vào từ bàn phím):
A=\(\dfrac{1}{1.3}+\dfrac{1}{2.4}+\dfrac{1}{3.5}+...........+\dfrac{1}{n\left(n+2\right)}\)
mn viết ra cho mk như chương trình free pascal nhoa
mk yeu mn nhìu
