Var a,b:Integer;
Begin
Clrscr;
Write(' Nhap a, b');
Read(a,b);
End.
Var a,b:Integer;
Begin
Clrscr;
Write(' Nhap a, b');
Read(a,b);
End.
Viết chương trình kiểm tra số nguyên N bất kỳ nhập vào từ bàn phím là số âm hay số dương.
1Viết chương trình nhập vào số nguyên dương N. Tính tổng các số là bội 3 và 5. In kết quả ra màn hình. 2. Viết chương trình tính tổng S=1+13+15+1N+...+ cho đến khi 1N
1.viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 7
2.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố
3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K<= 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ số
mn giúp em giải với ạ
Viết chương trình pascal cho phép người dùng nhập vào 1 số nguyên, hãy in ra màn hình bảng cửu chương đó
Viết chương trình nhập vào số nguyên N, tính và đưa ra màn hình trung bình các số lẽ từ 1 đến N
Viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím giá trị các phần tử là các số nguyên đưa ra màn hình mảng vừa nhập với thứ tự các phần tử ngược lại, nhập 3, 6, 8 đưa ra 8, 6, 3. Đếm số phần tử có giá trị lớn hơn 10. Đưa ra màn hình số lượng số nguyên tố trong mảng
Viết chương trình tính tổng các số chia hết cho 2 ở vị trí chẳn trong mảng A gồm N số nguyên dương a1, a2, …, aN. Thoã N
Viết chương trình tinh tổng S=1+2+4+6+...+N (N<10^4, n là số nguyên được nhập từ bàn phim)