uses crt;
var a:array[1..100]of integer;
i,n,dem,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
begin
kt:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then inc(kt);
if kt=2 then
begin
write(a[i]:4);
inc(dem);
end;
writeln;
writeln('Co ',dem,' so nguyen to');
readln;
end.
Vct nhập số n, nhập vào một số nguyên x, kiểm tra xem x có trong mãng hay ko nếu có thì xuất hiện bao nhiêu lần!
Vct nhập số n vào mảng. Xuất ra các số âm gần số 0 nhất
Vct tính tổng các số có chữ số tận cùng là 5
Vct nhập vào mảng n số .Chèn thêm 1 số mới. Và xuất chúng theo thứ tự giảm dần mà ko cần sắp xếp lại.cho bt vị trí đã chèn
a, Viết chương trình nhập vào số nguyên dương, tính N!=1*2*3*...*N
VD N=5 thì in ra 5!=120
b, Viết chương trình tính tổng số chẵn từ 1 đến N với N là số nguyên sau đó hiển thị ra tông
VD N=10 thì tổng số chẵn là 30
c, Viết chương trình nhập vào của một số nguyên dương N, kiểm tra xem có phải số nguyên tố
viết chương trình nhập một dãy A gồm N số nguyên. Hãy cho biết trong dãy đó có bao nhiêu số chia hết cho 3
giúp mình với ạ :<
Viết chương trình nhập từ bàn phím một dãy số nguyên dương gồm N (N <= 100) phần tử mỗi phần tử có giá trịnh không quá 500. Hãy in ra màn hình số lượng các phần tử trong dãy là số nguyên tố và tổng các số nguyên tố đó .
Vct xuất ra các số âm gần 0 nhất
1. Nhập vào số nguyên n từ bàn phím. Tính n! rồi hiển thị kết quả ra màn hình với 0!=1; 1!=1; 2!....
2. Nhập vào 3 số nguyên a,b,c bất kì. Kiểm tra 3 số nguyên đó có là 3 cạnh của một tam giác vuông hay không?
Viết chương trình nhập vào 2 số nguyên dương m, n (m<n), tính T1 là tích tất cả các số trong phạm vi từ 1 đến n và T2 là tích các số lẻ trong phạm vi từ m đến n và đưa kết quả ra màn hình.
giúp em bài này với ạ, em cám ơn ạ <3
