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.

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.