uses crt;
var m,n,t1,t2,i,j:integer;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
t1:=0;
t2:=0;
for i:=2 to n-1 do
if n mod i=0 then t1:=t1+i;
for j:=2 to m-1 do
if m mod j=0 then t2:=t2+j;
if t1=t2 then writeln(n,' va ',m,' la hai so anh em')
else writeln(n,' va ',m,' khong la hai so anh em');
readln;
end.
Viết chương trình cho phép nhập từ bàn phím 2 biến M, N (M<N) . Hãy cho biết có bao nhiêu số chia hết cho 3 và( hoặc ) 5 trong phạm vi từ M đến N
1. Viết chương trình nhập vào 2 số nguyên dương a,b (a<b). Tính và đưa ra màn hình tổng các số chẵn và tổng các số lẻ trong phạm vi từ a --> b
2. Viết chương trình nhập vào số nguyên dương n (n được nhập tùy ý) xuất ra màn hình các số nguyên lẻ từ 5 --> n (n>=5)
3. Viết chương trình nhập vào 2 số nguyên dương m,n (m<n). Tính và đưa ra màn hình tích của các số nguyên chẵn trong phạm vi từ m --> n
4. Viết chương trình nhập vào 2 số nguyên dương x,y (x<y). Xuất ra màn hình dãy số nguyên dương từ x --> y và y --> x
Viết chương trình nhập vào số tự nhiên N (N lẻ), sau đó điền các số từ 1 đến n2 vào trong một bảng vuông sao cho tổng các số hàng ngang, hàng dọc và 2 đường chéo đều bằng nhau (bảng này được gọi là Ma phương). In ra màn hình Ma phương và tổng các hàng ngang, hàng dọc và 2 đường chéo.
VIẾT CHƯƠNG TRÌNH NHẬP DÃY N SỐ NGUYÊN (N<= 250), TÌM SỐ CÓ GIÁ TRỊ NHỎ NHẤT TRONG DÃY. ĐƯA RA MÀN HÌNH GIÁ TRỊ CỦA SỐ TÌM ĐƯỢC VÀ CÁC ƯỚC SỐ CỦA SÔ ĐÓ.
Nhập xâu S vào từ bàn phím rồi tính tổng các số trong xâu S và đưa kết quả ra màn hình.
Lưu ý : "Số" khác với "chữ số".
Ví dụ : Nếu nhập xâu 'awjir1ui125j62kj61ji52' thì tổng sẽ là
T = 1+125 + 62 + 61 + 52 = 301
Cần lắm một sự giúp đỡ, viết chương trình pascal...
1. Nhập dãy số nguyên A1...An (Kiểu mảng) (N<= 100)
2. Viết hàm tính boi5( x: integer): boolean, tìm bội của 5 nếu đúng thì viết ra TRUE.
3. Tính tổng dãy số đã nhập là bội của 5.
4. Gọi lại các chương trình con.
giúp em với ạ!!!!
Câu 1. Viết chương trình nhập từ bàn phím số nguyên dương N (N≤100) và dãy số nguyên A1, A2, ...AN có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình tổng số nguyên chẵn, tổng số nguyên lẻ của dãy số. Với N được nhập từ bàn phím.
Câu 2: Cho dãy A gồm N số nguyên. Viết chương trình in ra màn hình các số nguyên âm có trong dãy? với n được nhập từ bàn phím.
Câu 3. Viết chương trình tính tổng các phần tử chia hết cho 3 trong mảng A gồm n phần tử từ A1, A2 .... An? với n được nhập từ bàn phím.
Câu 4. Viết chương trình nhập từ bàn phím số nguyên dương N (N≤100) và dãy số nguyên A1, A2, ...AN có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình số nhỏ nhất của dãy số và vị trí số nhỏ nhất vừa tìm được. Với N được nhập từ bàn phím.
Câu 5. Viết chương trình nhập từ bàn phím số nguyên dương N (N≤100) và dãy số nguyên A1, A2, ...AN có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình dãy số nguyên được sắp xếp theo thứ tự giảm dần. Với N được nhập từ bàn phím
-c1 Nhập 3 họ tên r đưa ra họ tên dài nhất
c2: nhập dãy số A có N phần tử( N>=150), số K nguyên, tính số ước của K thuộc A
-mọi người giúp e với ạ hôm sau e kt rùi -
em cảm ơn ạ
