Câu 1: Viết chương trình nhập vào từ bàn phím một số nguyên dương m (m>4). In ra màn hình các ước số của m. Câu 2: Viết chương trình: a. Nhập một dãy số nguyên n phần tử. b. Hiển thị dãy số vừa nhập. c. Tính và in ra màn hình tổng giá trị các phần tử dương và chẵn của dãy số. (mik cần rất gấp cho buổi chiều kt bài tập để cô lấy điểm ạ!!)vote 5 sao nếu đúng!!!! cảm ơn mn nha~

câu 1:

program ct;

uses crt;

var m,i:integer;

begin

clrscr;

while m<4 do

begin

write('nhap m:=');readln(m);

end;

for i:=1 to m do

if m mod i=0 then writeln('uoc cua m la',m);

readln

end.

câu 2:

program ct;

uses crt;

var i,n,s:integer; 

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

writeln('day so vua nhap la:');

for i:=1 to n do

write(A[i],'');

s:=0;

for i:=1 to n do

if A[i]>0 then s:=s+A[i]

if A[i] mod 2=0 then s:=s+A[i];

writeln('tong cac so duong la:',s);

writeln('tong cac so chan la:',s);

readln

end.

Câu 1: uese crt;

var m, i: integer;

begin

while m <4 do begin

writeln ('Nhap so nguyen duong m ='); readln (m); end;;

writeln('Cac uoc cua m la:');

for i: = 1 to m do

if m mod i = 0 then write(i: 4);

readln;

end.

Ca2 

uese crt;

var a: array [1..100] of integer;

i, n, s, d: integer;

begin

clrscr;

writeln('Nhap so phan tu day:'); readln(n);

for i: = 1 to n do begin

writeln('Nhap so thu',i,':') readln(a[i]);

end; writeln('Day vua nhap la:');

for i: = 1 to n do 

write (a [i]);

for i: = 1 to n do

if a[i]> 0 thì s:=s+a[i];

i:=0;

for i: = 1 to n do

if a[i] mod 2 = 0 then d:=d+a[i];

writeln('Tong cac phan tu duong la:',s);

writeln('Tong cac phan chan la:',d);

readln;

end.