Bài 1 :
Uses crt;
Var x,y:integer;
Begin
clrscr;
Readln(x,y);
Write('Tong cua x,y la ',x+y);
Readln
End.
Bài 2 :
Uses CRT;
var x,y,z:integer; tbc:real;
begin
clrscr;
readln(x,y,z);
tbc:=(a+b+c)/3;
Write('Trung binh cong x,y,z la ',tbc:4:2);
Readln
End.
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 để 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 pascal tính \(A=\dfrac{1}{9x+n}\) với x,n là số nguyên dương được nhập từ bàn phím . in kết quả ra màn hình
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.
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
Viết chương trình tính tổng S = 1+2+3+…+N. Với N là số nguyên nhập từ bàn phím? Sử dụng câu lệnh For..to..do
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.
Viết chương trình kiểm tra xem N có phải là số nguyên tố không . Biết N được nhập từ bàn phím
Tính tổng : 1+2+3+...+n với n là số nguyên được nhập từ bàn phím
